[BACK]Return to examupload.problem CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / homework / templates
File:  [LON-CAPA] / loncom / homework / templates / examupload.problem
Revision 1.15: download - view: text, annotated - select for diffs
Sat May 21 14:50:40 2011 UTC (13 years, 7 months ago) by www
Branches: MAIN
CVS tags: version_2_12_X, version_2_11_X, version_2_11_5_msu, version_2_11_5, version_2_11_4_uiuc, version_2_11_4_msu, version_2_11_4, version_2_11_3_uiuc, version_2_11_3_msu, version_2_11_3, version_2_11_2_uiuc, version_2_11_2_msu, version_2_11_2_educog, version_2_11_2, version_2_11_1, version_2_11_0_RC3, version_2_11_0_RC2, version_2_11_0_RC1, version_2_11_0, version_2_10_X, version_2_10_1, loncapaMITrelate_1, language_hyphenation_merge, language_hyphenation, HEAD, BZ4492-merge, BZ4492-feature_horizontal_radioresponse, BZ4492-feature_Support_horizontal_radioresponse, BZ4492-Support_horizontal_radioresponse
Easier access to parameters and stored data.

<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=&parameter_setting('weight');
if ((!defined($weight)) || ($weight eq '')) { $weight=1; }
$awarded=&stored_data('awarded');
if (!defined($awarded)) { $awarded=0; }
$scoreformat=&parameter_setting('scoreformat');
if (!defined($scoreformat) || $scoreformat eq '') { $scoreformat="2f"; }
$display='';
if (&parameter_setting('problemstatus')!~/^no/) {
   if (!defined($awarded)) {
      $display=$weight.' possible points.';
   } else {
      $display='You have '.&format($awarded*$weight,$scoreformat).' out of '.
            $weight.' possible points.';
   }
}
$comment=&stored_data('comment');
if (!defined($comment) || $comment!~/\w/) {
   $comment='';
} else {
   $comment='<br /><table><tr><td bgcolor="#FFFFDD">'.$comment.'</td></tr></table>';
}
$gradeinfo=&stored_data('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 />You can modify the rounding of the score display using the "scoreformat" setting.
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>