File:  [LON-CAPA] / loncom / homework / templates / examupload.problem
Revision 1.11: download - view: text, annotated - select for diffs
Tue Apr 20 23:29:27 2010 UTC (14 years, 1 month ago) by www
Branches: MAIN
CVS tags: HEAD
A good chunk of Bug #6250

    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: $comment=&EXT('user.resource.resource.0.comment');
   16: if (!defined($comment) || $comment!~/\w/) {
   17:    $comment='';
   18: } else {
   19:    $comment='<br /><table><tr><td bgcolor="#FFFFDD">'.$comment.'</td></tr></table>';
   20: }
   21: $gradeinfo=&EXT('user.resource.resource.0.gradeinfo');
   22: if (!defined($gradeinfo) || $gradeinfo!~/\w/) {
   23:    $gradeinfo='';
   24: } else {
   25:    $gradeinfo='<br /><table><tr><td bgcolor="#DDDDFF">'.$gradeinfo.'</td></tr></table>';
   26: }
   27: 
   28: 
   29: </script>
   30: 
   31: <startouttext />
   32: You have <display>&format($awarded*$weight,$scoreformat)</display> out of $weight possible points.
   33: <instructorcomment><span style="color:red">
   34: <br />If non-integer points are used (e.g., 3.5), make sure to change the
   35: display format in "Modify parameter settings for this resource" (clock symbol), or the result will be displayed in rounded form.
   36: </span></instructorcomment>
   37: $gradeinfo
   38: $comment
   39: <endouttext />
   40: 
   41: <block condition="0"><numericalresponse id="score" /></block>
   42: 
   43: </problem>

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>