loncom/homework/inputtags.pm - diff

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.152, 2004/10/19 15:24:32	version 1.153, 2004/10/21 02:43:34
Line 317 sub finalizeawards {	Line 317 sub finalizeawards {
'BAD_FORMULA', 'SIG_FAIL', 'INCORRECT',	'BAD_FORMULA', 'SIG_FAIL', 'INCORRECT',
'MISORDERED_RANK', 'INVALID_FILETYPE',	'MISORDERED_RANK', 'INVALID_FILETYPE',
'DRAFT', 'SUBMITTED', 'ASSIGNED_SCORE',	'DRAFT', 'SUBMITTED', 'ASSIGNED_SCORE',
'APPROX_ANS', 'EXACT_ANS') {	'APPROX_ANS', 'EXACT_ANS','COMMA_FAIL') {
($result,$msg)=&checkstatus($possibleaward,$awardref,$msgref);	($result,$msg)=&checkstatus($possibleaward,$awardref,$msgref);
if (defined($result)) { return ($result,$msg); }	if (defined($result)) { return ($result,$msg); }
}	}
Line 457 sub decideoutput {	Line 457 sub decideoutput {
if ($target ne 'tex') {$message.=&Apache::loncommon::help_open_topic('Physical_Units')};	if ($target ne 'tex') {$message.=&Apache::loncommon::help_open_topic('Physical_Units')};
$bgcolor=$possiblecolors{'not_charged_try'};	$bgcolor=$possiblecolors{'not_charged_try'};
$button=1;	$button=1;
	} elsif ($award eq 'COMMA_FAIL') {
	$message = &mt("Proper comma separation is required").'.';
	$bgcolor=$possiblecolors{'not_charged_try'};
	$button=1;
} elsif ($award eq 'BAD_FORMULA') {	} elsif ($award eq 'BAD_FORMULA') {
$message = &mt("Unable to understand formula");	$message = &mt("Unable to understand formula");
$bgcolor=$possiblecolors{'not_charged_try'};	$bgcolor=$possiblecolors{'not_charged_try'};