File:
[LON-CAPA] /
loncom /
homework /
templates /
CustomResponse.problem
Revision
1.2:
download - view:
text,
annotated -
select for diffs
Fri Mar 30 20:10:09 2007 UTC (17 years, 4 months ago) by
albertel
Branches:
MAIN
CVS tags:
version_2_9_X,
version_2_9_0,
version_2_8_X,
version_2_8_99_1,
version_2_8_99_0,
version_2_8_2,
version_2_8_1,
version_2_8_0,
version_2_7_X,
version_2_7_99_1,
version_2_7_99_0,
version_2_7_1,
version_2_7_0,
version_2_6_X,
version_2_6_99_1,
version_2_6_99_0,
version_2_6_3,
version_2_6_2,
version_2_6_1,
version_2_6_0,
version_2_5_X,
version_2_5_99_1,
version_2_5_99_0,
version_2_5_2,
version_2_5_1,
version_2_5_0,
version_2_4_X,
version_2_4_99_0,
version_2_4_2,
version_2_4_1,
version_2_4_0,
version_2_3_99_0,
bz5969,
HEAD,
GCI_2,
GCI_1,
BZ5971-printing-apage,
BZ5434-fox
- correct the example to use the proper return codes
1: <problem>
2: <startouttext />Accept an answer of around 90 or -90<endouttext />
3: <customresponse answerdisplay="something near 90 or -90">
4: <answer type="loncapa/perl">
5: # We do not want a vector
6: if ($submission=~/\,/) { return 'EXTRA_ANSWER'; }
7: # No units needed
8: if ($submission=~/^\d+\s+\w+$/) { return 'UNIT_NOTNEEDED'; }
9: # Need a numerical answer here
10: if ($submission!~/^\d+$/) { return 'WANTED_NUMERIC'; }
11: $difference=abs(90-abs($submission));
12: if ($difference==0) { return 'EXACT_ANS'; }
13: if ($difference < 0.001) { return 'APPROX_ANS'; }
14: return 'INCORRECT';
15: </answer>
16: <textline />
17: </customresponse>
18: </problem>
19:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>