version 1.1, 2006/07/18 17:24:39
|
version 1.2, 2007/03/30 20:10:09
|
Line 3
|
Line 3
|
<customresponse answerdisplay="something near 90 or -90"> |
<customresponse answerdisplay="something near 90 or -90"> |
<answer type="loncapa/perl"> |
<answer type="loncapa/perl"> |
# We do not want a vector |
# We do not want a vector |
if ($submission=~/\,/) { return 'ANS_CNT_NOT_MATCH'; } |
if ($submission=~/\,/) { return 'EXTRA_ANSWER'; } |
# No units needed |
# No units needed |
if ($submission=~/^\d+\s+\w+$/) { return 'UNIT_NOTNEEDED'; } |
if ($submission=~/^\d+\s+\w+$/) { return 'UNIT_NOTNEEDED'; } |
# Need a numerical answer here |
# Need a numerical answer here |