1: <problem>
2: <displaytitle />
3: <parameter name="scoreformat" description="Format for display of score" type="string" />
4: <parameter name="handgrade" description="Hand Grade" default="yes" type="string_yesno" />
5: <script type="loncapa/perl">
6: $weight=&EXT('resource.0.weight');
7: if ((!defined($weight)) || ($weight eq '')) { $weight=1; }
8: $awarded=&EXT('user.resource.resource.0.awarded');
9: if (!defined($awarded)) { $awarded=0; }
10: $scoreformat=&EXT('resource.0.scoreformat');
11: if (!defined($scoreformat) || $scoreformat eq '') { $scoreformat="0f"; }
12: </script>
13: <startouttext />
14: You have <display>&format($awarded*$weight,$scoreformat)</display> out of $weight possible points.
15: <instructorcomment>
16: <font color="red">
17: <br />If non-integer points are used (e.g., 3.5), make sure to change the
18: display format in PPRM, or the result will be displayed in rounded form.
19: </font>
20: </instructorcomment>
21: <endouttext />
22: <block condition="0"><numericalresponse id='score' /></block>
23: </problem>
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>