version 1.169, 2005/06/20 21:31:07
|
version 1.172, 2005/07/11 19:45:07
|
Line 418 sub decideoutput {
|
Line 418 sub decideoutput {
|
|
|
if ($solved =~ /^correct/) { |
if ($solved =~ /^correct/) { |
$bgcolor=$possiblecolors{'correct'}; |
$bgcolor=$possiblecolors{'correct'}; |
if ($award eq 'ASSIGNED_SCORE') { |
$message=&mt('You are correct.'); |
|
if ($awarded < 1 && $awarded > 0) { |
|
$message=&mt('You are partially correct.'); |
|
$bgcolor=$possiblecolors{'not_charged_try'}; |
|
} elsif ($awarded < 1) { |
|
$message=&mt('Incorrect.'); |
|
$bgcolor=$possiblecolors{'charged_try'}; |
|
} |
|
if ($env{'request.filename'} =~ |
|
m|/res/lib/templates/examupload.problem$|) { |
$message = &mt("A score has been assigned."); |
$message = &mt("A score has been assigned."); |
if ($awarded < 1 && $awarded > 0) { |
$added_computer_text=1; |
$bgcolor=$possiblecolors{'not_charged_try'}; |
|
} elsif ($awarded < 1) { |
|
$bgcolor=$possiblecolors{'charged_try'}; |
|
} |
|
} else { |
} else { |
if ($target eq 'tex') { |
if ($target eq 'tex') { |
$message = '\textbf{'.&mt('You are correct.').'}'; |
$message = '\textbf{'.$message.'}'; |
} else { |
} else { |
$message = "<b>".&mt('You are correct.')."</b>"; |
$message = "<b>".$message."</b>"; |
$message.=" ".&mt("Computer's answer now shown above."); |
$message.=" ".&mt("Computer's answer now shown above."); |
} |
} |
$added_computer_text=1; |
$added_computer_text=1; |