loncom/homework/inputtags.pm - diff

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.79, 2003/01/19 08:16:43	version 1.80, 2003/01/24 19:49:48
Line 242 sub finalizeawards {	Line 242 sub finalizeawards {
foreach $award (@_) { if ($award eq 'MISORDERED_RANK') {$result=$award; last;} }	foreach $award (@_) { if ($award eq 'MISORDERED_RANK') {$result=$award; last;} }
}	}
if ($result eq '' ) {	if ($result eq '' ) {
	foreach $award (@_) { if ($award eq 'INVALID_FILETYPE') {$result=$award; last;} }
	}
	if ($result eq '' ) {
foreach $award (@_) { if ($award eq 'DRAFT') {$result=$award; last;} }	foreach $award (@_) { if ($award eq 'DRAFT') {$result=$award; last;} }
}	}
if ($result eq '' ) {	if ($result eq '' ) {
Line 299 sub decideoutput {	Line 302 sub decideoutput {
$message = 'You have provided an invalid ranking, look '.	$message = 'You have provided an invalid ranking, look '.
'<a href="/adm/pages/misordered_rank.html">here</a> for more information.';	'<a href="/adm/pages/misordered_rank.html">here</a> for more information.';
$button=1;	$button=1;
	} elsif ($award eq 'INVALID_FILETYPE') {
	$message = 'The filetype extension of the file you uploaded is not allowed.';
	$button=1;
} elsif ($award eq 'SIG_FAIL') {	} elsif ($award eq 'SIG_FAIL') {
$message = "Please adjust significant figures.";# you provided %s significant figures";	$message = "Please adjust significant figures.";# you provided %s significant figures";
$button=1;	$button=1;