Annotation of loncom/homework/templates/examupload.problem, revision 1.15
1.1 www 1: <problem>
1.10 bisitz 2:
1.1 www 3: <displaytitle />
1.10 bisitz 4:
1.8 albertel 5: <parameter name="scoreformat" description="Format for display of score" type="string" />
1.7 albertel 6: <parameter name="handgrade" description="Hand Grade" default="yes" type="string_yesno" />
1.10 bisitz 7:
1.1 www 8: <script type="loncapa/perl">
1.15 ! www 9: $weight=¶meter_setting('weight');
1.3 albertel 10: if ((!defined($weight)) || ($weight eq '')) { $weight=1; }
1.15 ! www 11: $awarded=&stored_data('awarded');
1.1 www 12: if (!defined($awarded)) { $awarded=0; }
1.15 ! www 13: $scoreformat=¶meter_setting('scoreformat');
1.14 www 14: if (!defined($scoreformat) || $scoreformat eq '') { $scoreformat="2f"; }
1.13 www 15: $display='';
1.15 ! www 16: if (¶meter_setting('problemstatus')!~/^no/) {
1.13 www 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: }
1.15 ! www 24: $comment=&stored_data('comment');
1.11 www 25: if (!defined($comment) || $comment!~/\w/) {
26: $comment='';
27: } else {
28: $comment='<br /><table><tr><td bgcolor="#FFFFDD">'.$comment.'</td></tr></table>';
29: }
1.15 ! www 30: $gradeinfo=&stored_data('gradeinfo');
1.11 www 31: if (!defined($gradeinfo) || $gradeinfo!~/\w/) {
32: $gradeinfo='';
33: } else {
1.12 www 34: $gradeinfo='<br /><table><tr><td bgcolor="#DDDDFF"><font size="+2">'.$gradeinfo.'</font></td></tr></table>';
1.11 www 35: }
36:
37:
1.1 www 38: </script>
1.10 bisitz 39:
1.1 www 40: <startouttext />
1.13 www 41: $display
1.10 bisitz 42: <instructorcomment><span style="color:red">
1.14 www 43: <br />You can modify the rounding of the score display using the "scoreformat" setting.
1.13 www 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.
1.10 bisitz 45: </span></instructorcomment>
1.11 www 46: $gradeinfo
47: $comment
1.1 www 48: <endouttext />
1.10 bisitz 49:
50: <block condition="0"><numericalresponse id="score" /></block>
51:
1.1 www 52: </problem>
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>