loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.179, 2007/10/08 09:22:50	version 1.181, 2007/10/17 00:22:51
Line 452 sub end_customresponse {	Line 452 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);	"$part.$id");
if ($target eq 'analyze') {	if ($target eq 'analyze') {
&Apache::lonhomework::set_bubble_lines();	&Apache::lonhomework::set_bubble_lines();
}	}
Line 1050 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");
}	}