loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.178, 2007/09/27 19:05:03	version 1.181, 2007/10/17 00:22:51
Line 451 sub end_customresponse {	Line 451 sub end_customresponse {
}	}
if ($target eq 'grade' \|\| $target eq 'web' \|\| $target eq 'answer' \|\|	if ($target eq 'grade' \|\| $target eq 'web' \|\| $target eq 'answer' \|\|
$target eq 'tex' \|\| $target eq 'analyze') {	$target eq 'tex' \|\| $target eq 'analyze') {
&Apache::lonxml::increment_counter(&Apache::response::repetition());	&Apache::lonxml::increment_counter(&Apache::response::repetition(),
	"$part.$id");
	if ($target eq 'analyze') {
	&Apache::lonhomework::set_bubble_lines();
	}
}	}
pop(@Apache::lonxml::namespace);	pop(@Apache::lonxml::namespace);
pop(@Apache::response::custom_answer);	pop(@Apache::response::custom_answer);
Line 1046 sub show_answer {	Line 1050 sub show_answer {
my $award = $Apache::lonhomework::history{"resource.$part.solved"};	my $award = $Apache::lonhomework::history{"resource.$part.solved"};
my $status = $Apache::inputtags::status[-1];	my $status = $Apache::inputtags::status[-1];
return ( ($award =~ /^correct/	return ( ($award =~ /^correct/
&& lc($Apache::lonhomework::problemstatus) ne 'no')	&& &Apache::lonhomework::show_problem_status())
\|\| $status eq "SHOW_ANSWER");	\|\| $status eq "SHOW_ANSWER");
}	}