loncom/homework/inputtags.pm - diff

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.101, 2003/05/09 22:24:05	version 1.102, 2003/05/23 07:04:44
Line 251 sub finalizeawards {	Line 251 sub finalizeawards {
if ($result eq '' ) {	if ($result eq '' ) {
foreach $award (@_) { if ($award eq 'NO_RESPONSE') {$result='NO_RESPONSE'; last;} }	foreach $award (@_) { if ($award eq 'NO_RESPONSE') {$result='NO_RESPONSE'; last;} }
}	}
	if ($result eq '' ) {
	foreach $award (@_) { if ($award eq 'TOO_LONG') {$result='TOO_LONG'; last;}}
	}
if ($result eq '' ) {	if ($result eq '' ) {
foreach $award (@_) {	foreach $award (@_) {
if ($award eq 'UNIT_FAIL' \|\|	if ($award eq 'UNIT_FAIL' \|\|
Line 336 sub decideoutput {	Line 338 sub decideoutput {
} elsif ($award eq 'MISSING_ANSWER') {	} elsif ($award eq 'MISSING_ANSWER') {
$message = 'Some parts were not submitted';	$message = 'Some parts were not submitted';
$button = 1;	$button = 1;
	} elsif ($award eq 'ERROR') {
	$message = 'An error occured while trying to grade answer.';
	$button = 1;
	} elsif ($award eq 'TOO_LONG') {
	$message = "The submitted answer was too long.";
	$button=1;
} elsif ($award eq 'WANTED_NUMERIC') {	} elsif ($award eq 'WANTED_NUMERIC') {
$message = "This question expects a numeric answer";	$message = "This question expects a numeric answer";
$button=1;	$button=1;