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=&parameter_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=&parameter_setting('scoreformat');
1.14      www        14: if (!defined($scoreformat) || $scoreformat eq '') { $scoreformat="2f"; }
1.13      www        15: $display='';
1.15    ! www        16: if (&parameter_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>