|
version 1.23, 2001/01/10 21:49:43
|
version 1.24, 2001/01/10 22:18:11
|
|
Line 163 sub decideoutput {
|
Line 163 sub decideoutput {
|
| my $message=''; |
my $message=''; |
| my $button=0; |
my $button=0; |
| if ($award eq 'EXACT_ANS' || $award eq 'APPROX_ANS' ) { |
if ($award eq 'EXACT_ANS' || $award eq 'APPROX_ANS' ) { |
| $message = "<b>You are correct.</b> You receipt is ".&Apache::lonnet::receipt; |
$message = "<b>You are correct.</b> Your receipt is ".&Apache::lonnet::receipt; |
| $button=0; |
$button=0; |
| } elsif ($award eq 'NO_RESPONSE') { |
} elsif ($award eq 'NO_RESPONSE') { |
| $message = ''; |
$message = ''; |
![[BACK]](/icons/back.gif){kind=icon}
Return to inputtags.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework