Return to examupload.problem CVS log

Up to [LON-CAPA] / loncom / homework / templates

Be able to control score feedback using problemstatus parameter

    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>