loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.221, 2010/12/19 00:44:09	version 1.222, 2011/03/07 19:42:21
Line 1140 sub whichorder {	Line 1140 sub whichorder {

sub show_answer {	sub show_answer {
my $part = $Apache::inputtags::part;	my $part = $Apache::inputtags::part;
my $award = $Apache::lonhomework::history{"resource.$part.solved"};	my $award = $Apache::lonhomework::history{"resource.$part.awarded"};
my $status = $Apache::inputtags::status[-1];	my $status = $Apache::inputtags::status[-1];
return ( ($award =~ /^correct/	return ( ($award ==1
&& &Apache::lonhomework::show_problem_status())	&& &Apache::lonhomework::show_problem_status())
\|\| $status eq "SHOW_ANSWER");	\|\| $status eq "SHOW_ANSWER");
}	}