version 1.1, 2010/12/20 18:14:18
|
version 1.2, 2011/04/29 00:32:11
|
Line 83 foreach my $testcase (split(/\,/,$FORM{'
|
Line 83 foreach my $testcase (split(/\,/,$FORM{'
|
# 'EXACT_ANS','COMMA_FAIL' |
# 'EXACT_ANS','COMMA_FAIL' |
# |
# |
# plus a free-form $message. |
# plus a free-form $message. |
|
# |
|
# For partial correctness, awarddetail needs to be ASSIGNED_SCORE |
|
# The partial score would be in <awarded> |
|
# |
|
|
print (<<ENDOUT); |
print (<<ENDOUT); |
<loncapagrade> |
<loncapagrade> |
<awarddetail>$award</awarddetail> |
<awarddetail>$award</awarddetail> |
<message>$message</message> |
<message>$message</message> |
|
<awarded></awarded> |
</loncapagrade> |
</loncapagrade> |
ENDOUT |
ENDOUT |
exit; |
exit; |