Return to response.pm CVS log | Up to [LON-CAPA] / loncom / homework |
version 1.82, 2003/07/28 22:44:54 | version 1.82.2.1, 2003/09/23 01:52:57 |
---|---|
Line 512 sub whichorder { | Line 512 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__ |