version 1.36, 2001/06/27 18:51:37
|
version 1.37, 2001/07/12 19:27:48
|
Line 158 sub decideoutput {
|
Line 158 sub decideoutput {
|
my ($award,$solved)=@_; |
my ($award,$solved)=@_; |
my $message=''; |
my $message=''; |
my $button=0; |
my $button=0; |
if ($solved =~ /^correct/ || $award eq 'EXACT_ANS' || $award eq 'APPROX_ANS' ) { |
if ($solved =~ /^correct/) { |
$message = "<b>You are correct.</b> Your receipt is ".&Apache::lonnet::receipt; |
$message = "<b>You are correct.</b> Your receipt is ". |
|
&Apache::lonnet::receipt; |
$button=0; |
$button=0; |
|
} elsif ($solved =~ /^excused/) { |
|
$message = "<b>You are excused from the problem.</b>"; |
|
$button=0; |
|
} elsif ($award eq 'EXACT_ANS' || $award eq 'APPROX_ANS' ) { |
|
if ($solved =~ /^incorrect/ || $solved eq '') { |
|
$message = "Incorrect"; |
|
$button=1; |
|
} else { |
|
$message = "<b>You are correct.</b> Your receipt is ". |
|
&Apache::lonnet::receipt; |
|
$button=0; |
|
} |
} elsif ($award eq 'NO_RESPONSE') { |
} elsif ($award eq 'NO_RESPONSE') { |
$message = ''; |
$message = ''; |
$button=1; |
$button=1; |