version 1.89, 2003/04/08 02:37:58
|
version 1.90, 2003/04/08 13:46:30
|
Line 264 sub decideoutput {
|
Line 264 sub decideoutput {
|
my $button=0; |
my $button=0; |
my $previousmsg; |
my $previousmsg; |
|
|
|
if (lc $Apache::lonhomework::problemstatus eq 'yes') { |
|
|
if ($previous) { $previousmsg='You have entered that answer before'; } |
if ($previous) { $previousmsg='You have entered that answer before'; } |
|
|
if ($solved =~ /^correct/) { |
if ($solved =~ /^correct/) { |
Line 336 sub decideoutput {
|
Line 338 sub decideoutput {
|
$message = "Unknown message: $award"; |
$message = "Unknown message: $award"; |
$button=1; |
$button=1; |
} |
} |
if ($Apache::lonhomework::type eq 'exam') {$message='';$previousmsg='';} |
} elsif ($Apache::lonhomework::type eq 'exam') { |
|
$message = "Answer Submitted"; |
|
$button=1; |
|
} |
return ($button,$message,$previousmsg); |
return ($button,$message,$previousmsg); |
} |
} |
|
|