File:
[LON-CAPA] /
loncom /
homework /
templates /
examupload.problem
Revision
1.15:
download - view:
text,
annotated -
select for diffs
Sat May 21 14:50:40 2011 UTC (13 years, 2 months ago) by
www
Branches:
MAIN
CVS tags:
version_2_12_X,
version_2_11_X,
version_2_11_5_msu,
version_2_11_5,
version_2_11_4_uiuc,
version_2_11_4_msu,
version_2_11_4,
version_2_11_3_uiuc,
version_2_11_3_msu,
version_2_11_3,
version_2_11_2_uiuc,
version_2_11_2_msu,
version_2_11_2_educog,
version_2_11_2,
version_2_11_1,
version_2_11_0_RC3,
version_2_11_0_RC2,
version_2_11_0_RC1,
version_2_11_0,
version_2_10_X,
version_2_10_1,
loncapaMITrelate_1,
language_hyphenation_merge,
language_hyphenation,
HEAD,
BZ4492-merge,
BZ4492-feature_horizontal_radioresponse,
BZ4492-feature_Support_horizontal_radioresponse,
BZ4492-Support_horizontal_radioresponse
Easier access to parameters and stored data.
1: <problem>
2:
3: <displaytitle />
4:
5: <parameter name="scoreformat" description="Format for display of score" type="string" />
6: <parameter name="handgrade" description="Hand Grade" default="yes" type="string_yesno" />
7:
8: <script type="loncapa/perl">
9: $weight=¶meter_setting('weight');
10: if ((!defined($weight)) || ($weight eq '')) { $weight=1; }
11: $awarded=&stored_data('awarded');
12: if (!defined($awarded)) { $awarded=0; }
13: $scoreformat=¶meter_setting('scoreformat');
14: if (!defined($scoreformat) || $scoreformat eq '') { $scoreformat="2f"; }
15: $display='';
16: if (¶meter_setting('problemstatus')!~/^no/) {
17: if (!defined($awarded)) {
18: $display=$weight.' possible points.';
19: } else {
20: $display='You have '.&format($awarded*$weight,$scoreformat).' out of '.
21: $weight.' possible points.';
22: }
23: }
24: $comment=&stored_data('comment');
25: if (!defined($comment) || $comment!~/\w/) {
26: $comment='';
27: } else {
28: $comment='<br /><table><tr><td bgcolor="#FFFFDD">'.$comment.'</td></tr></table>';
29: }
30: $gradeinfo=&stored_data('gradeinfo');
31: if (!defined($gradeinfo) || $gradeinfo!~/\w/) {
32: $gradeinfo='';
33: } else {
34: $gradeinfo='<br /><table><tr><td bgcolor="#DDDDFF"><font size="+2">'.$gradeinfo.'</font></td></tr></table>';
35: }
36:
37:
38: </script>
39:
40: <startouttext />
41: $display
42: <instructorcomment><span style="color:red">
43: <br />You can modify the rounding of the score display using the "scoreformat" setting.
44: You can upload comments and grade information with this resource when uploading CSV files. Feedback on grades can be controlled using the problemstatus parameter.
45: </span></instructorcomment>
46: $gradeinfo
47: $comment
48: <endouttext />
49:
50: <block condition="0"><numericalresponse id="score" /></block>
51:
52: </problem>
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>