loncom/homework/inputtags.pm - diff

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.148, 2004/07/15 19:44:54	version 1.149, 2004/08/03 15:32:31
Line 348 sub decideoutput {	Line 348 sub decideoutput {
} else {	} else {
$message = "<b>".&mt('You are correct.')."</b>";	$message = "<b>".&mt('You are correct.')."</b>";
}	}
$message.=" ".&mt("Computer's answer now shown.");	$message.=" ".&mt("Computer's answer now shown above.");
$added_computer_text=1;	$added_computer_text=1;
unless ($ENV{'course.'.	unless ($ENV{'course.'.
$ENV{'request.course.id'}.	$ENV{'request.course.id'}.
Line 381 sub decideoutput {	Line 381 sub decideoutput {
} else {	} else {
$message = "<b>".&mt('You are correct.')."</b>";	$message = "<b>".&mt('You are correct.')."</b>";
}	}
$message.=" ".&mt("Computer's answer now shown.");	$message.=" ".&mt("Computer's answer now shown above.");
$added_computer_text=1;	$added_computer_text=1;
unless ($ENV{'course.'.	unless ($ENV{'course.'.
$ENV{'request.course.id'}.	$ENV{'request.course.id'}.
Line 492 sub decideoutput {	Line 492 sub decideoutput {
}	}
if ($Apache::inputtags::status[-1] eq 'SHOW_ANSWER' &&	if ($Apache::inputtags::status[-1] eq 'SHOW_ANSWER' &&
!$added_computer_text) {	!$added_computer_text) {
$message.=" ".&mt("Computer's answer now shown.");	$message.=" ".&mt("Computer's answer now shown above.");
$added_computer_text=1;	$added_computer_text=1;
}	}
return ($button,$bgcolor,$message,$previousmsg);	return ($button,$bgcolor,$message,$previousmsg);