Return to response.pm CVS log | Up to [LON-CAPA] / loncom / homework |
version 1.84, 2003/08/20 14:05:40 | version 1.85, 2003/09/22 20:49:01 |
---|---|
Line 556 sub whichorder { | Line 556 sub whichorder { |
return @whichopt; | return @whichopt; |
} | } |
sub show_answer { | |
my $part = $Apache::inputtags::part; | |
my $award = $Apache::lonhomework::history{"resource.$part.solved"}; | |
my $status = $Apache::inputtags::status[-1]; | |
return ( ($award =~ /^correct/ | |
&& lc($Apache::lonhomework::problemstatus) ne 'no') | |
|| $status eq "SHOW_ANSWER"); | |
} | |
1; | 1; |
__END__ | __END__ |