[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, 9 months ago) by www
Branches: MAIN
CVS tags: version_2_12_X, version_2_11_X, version_2_11_6_msu, version_2_11_6, 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.

    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=&parameter_setting('weight');
   10: if ((!defined($weight)) || ($weight eq '')) { $weight=1; }
   11: $awarded=&stored_data('awarded');
   12: if (!defined($awarded)) { $awarded=0; }
   13: $scoreformat=&parameter_setting('scoreformat');
   14: if (!defined($scoreformat) || $scoreformat eq '') { $scoreformat="2f"; }
   15: $display='';
   16: if (&parameter_setting('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=&stored_data('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=&stored_data('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 />You can modify the rounding of the score display using the "scoreformat" setting.
   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.
   45: </span></instructorcomment>
   46: $gradeinfo
   47: $comment
   48: <endouttext />
   49: 
   50: <block condition="0"><numericalresponse id="score" /></block>
   51: 
   52: </problem>
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>