version 1.178, 2005/11/03 17:44:15
|
version 1.179, 2005/11/10 22:19:27
|
Line 386 sub checkstatus {
|
Line 386 sub checkstatus {
|
return(undef,undef); |
return(undef,undef); |
} |
} |
|
|
|
sub valid_award { |
|
my ($award) =@_; |
|
foreach my $possibleaward ('MISSING_ANSWER', 'ERROR', 'NO_RESPONSE', |
|
'TOO_LONG', 'UNIT_INVALID_INSTRUCTOR', |
|
'UNIT_INVALID_STUDENT', 'UNIT_IRRECONCIBLE', |
|
'UNIT_FAIL', 'NO_UNIT', |
|
'UNIT_NOTNEEDED', 'WANTED_NUMERIC', |
|
'BAD_FORMULA', 'SIG_FAIL', 'INCORRECT', |
|
'MISORDERED_RANK', 'INVALID_FILETYPE', |
|
'DRAFT', 'SUBMITTED', 'ASSIGNED_SCORE', |
|
'APPROX_ANS', 'EXACT_ANS','COMMA_FAIL') { |
|
if ($award eq $possibleaward) { return 1; } |
|
} |
|
return 0; |
|
} |
|
|
sub finalizeawards { |
sub finalizeawards { |
my ($awardref,$msgref)=@_; |
my ($awardref,$msgref)=@_; |
my $result=undef; |
my $result=undef; |