loncom/homework/inputtags.pm - diff

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.169, 2005/06/20 21:31:07	version 1.170, 2005/06/28 21:41:08
Line 418 sub decideoutput {	Line 418 sub decideoutput {

if ($solved =~ /^correct/) {	if ($solved =~ /^correct/) {
$bgcolor=$possiblecolors{'correct'};	$bgcolor=$possiblecolors{'correct'};
	$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 ($award eq 'ASSIGNED_SCORE') {	if ($award eq 'ASSIGNED_SCORE') {
$message = &mt("A score has been assigned.");	$message = &mt("A score has been assigned.");
if ($awarded < 1 && $awarded > 0) {
$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;