1: <problem>
2: <script type="loncapa/perl">
3: $weight=&EXT('resource.0.weight');
4: if ((!defined($weight)) || ($weight eq '')) { $weight=1; }
5: $awarded=&EXT('user.resource.resource.0.awarded');
6: $scoreformat=&EXT('resource.0.scoreformat');
7: if (!defined($scoreformat) || $scoreformat eq '') { $scoreformat="0f"; }
8: if (!defined($awarded)) {
9: $display='$weight possible points.';
10: } else {
11: $display='You have '.&format($awarded*$weight,$scoreformat).' out of '.
12: $weight.' possible points.';
13: }
14: </script>
15: <startouttext />
16: <displaytitle />
17: $display
18: <instructorcomment><font color="red">If non-integer points are used (e.g., 3.5), make sure to change the
19: display format in PPRM, or the result will be displayed in rounded form.
20: To change the allowed file types for
21: submissions, change the "uploadedfiletypes" parameter in
22: PPRM.</font></instructorcomment>
23: <essayresponse id="upload">
24: <responseparam name="uploadedfiletypes" default="doc,xls,ppt,png,jpg,jpeg,gif,txt,pdf,htm,html" type="string_fileext" description="Allowed File Extensions for Uploaded Files" />
25: </essayresponse>
26: </problem>
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>