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