![[BACK]](/icons/back.gif){kind=icon}
Return to response.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework|
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__ |