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="0f"; }
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 />If non-integer points are used (e.g., 3.5), make sure to change the
44: display format in "Modify parameter settings for this resource" (clock symbol), or the result will be displayed in rounded form.
45: You can upload comments and grade information with this resource when uploading CSV files. Feedback on grades can be controlled using the problemstatus parameter.
46: </span></instructorcomment>
47: $gradeinfo
48: $comment
49: <endouttext />
50:
51: <block condition="0"><numericalresponse id="score" /></block>
52:
53: </problem>
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>