File:  [LON-CAPA] / loncom / homework / templates / examupload.problem
Revision 1.13: download - view: text, annotated - select for diffs
Thu May 27 16:56:20 2010 UTC (13 years, 11 months ago) by www
Branches: MAIN
CVS tags: version_2_10_0_RC2, version_2_10_0_RC1, HEAD
Be able to control score feedback using problemstatus parameter

<problem>

<displaytitle />

<parameter name="scoreformat" description="Format for display of score" type="string" />
<parameter name="handgrade" description="Hand Grade" default="yes" type="string_yesno" />

<script type="loncapa/perl">
$weight=&EXT('resource.0.weight');
if ((!defined($weight)) || ($weight eq '')) { $weight=1; }
$awarded=&EXT('user.resource.resource.0.awarded');
if (!defined($awarded)) { $awarded=0; }
$scoreformat=&EXT('resource.0.scoreformat');
if (!defined($scoreformat) || $scoreformat eq '') { $scoreformat="0f"; }
$display='';
if (&EXT('resource.0.problemstatus')!~/^no/) {
   if (!defined($awarded)) {
      $display=$weight.' possible points.';
   } else {
      $display='You have '.&format($awarded*$weight,$scoreformat).' out of '.
            $weight.' possible points.';
   }
}
$comment=&EXT('user.resource.resource.0.comment');
if (!defined($comment) || $comment!~/\w/) {
   $comment='';
} else {
   $comment='<br /><table><tr><td bgcolor="#FFFFDD">'.$comment.'</td></tr></table>';
}
$gradeinfo=&EXT('user.resource.resource.0.gradeinfo');
if (!defined($gradeinfo) || $gradeinfo!~/\w/) {
   $gradeinfo='';
} else {
   $gradeinfo='<br /><table><tr><td bgcolor="#DDDDFF"><font size="+2">'.$gradeinfo.'</font></td></tr></table>';
}


</script>

<startouttext />
$display
<instructorcomment><span style="color:red">
<br />If non-integer points are used (e.g., 3.5), make sure to change the
display format in "Modify parameter settings for this resource" (clock symbol), or the result will be displayed in rounded form.
You can upload comments and grade information with this resource when uploading CSV files. Feedback on grades can be controlled using the problemstatus parameter.
</span></instructorcomment>
$gradeinfo
$comment
<endouttext />

<block condition="0"><numericalresponse id="score" /></block>

</problem>

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