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=&EXT('resource.0.weight');
10: if ((!defined($weight)) || ($weight eq '')) { $weight=1; }
11: $awarded=&EXT('user.resource.resource.0.awarded');
12: if (!defined($awarded)) { $awarded=0; }
13: $scoreformat=&EXT('resource.0.scoreformat');
14: if (!defined($scoreformat) || $scoreformat eq '') { $scoreformat="2f"; }
15: $display='';
16: if (&EXT('resource.0.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=&EXT('user.resource.resource.0.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=&EXT('user.resource.resource.0.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>