|
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; |
![[BACK]](/icons/back.gif){kind=icon}
Return to inputtags.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework