[BACK]Return to examupload.problem CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / homework / templates

Diff for /loncom/homework/templates/examupload.problem between versions 1.8 and 1.15

version 1.8, 2007/03/12 20:39:23 version 1.15, 2011/05/21 14:50:40
Line 1 Line 1
 <problem>  <problem>
   
 <displaytitle />  <displaytitle />
   
 <parameter name="scoreformat" description="Format for display of score" type="string" />  <parameter name="scoreformat" description="Format for display of score" type="string" />
 <parameter name="handgrade" description="Hand Grade" default="yes" type="string_yesno" />  <parameter name="handgrade" description="Hand Grade" default="yes" type="string_yesno" />
   
 <script type="loncapa/perl">  <script type="loncapa/perl">
 $weight=&EXT('resource.0.weight');  $weight=&parameter_setting('weight');
 if ((!defined($weight)) || ($weight eq '')) { $weight=1; }  if ((!defined($weight)) || ($weight eq '')) { $weight=1; }
 $awarded=&EXT('user.resource.resource.0.awarded');  $awarded=&stored_data('awarded');
 if (!defined($awarded)) { $awarded=0; }  if (!defined($awarded)) { $awarded=0; }
 $scoreformat=&EXT('resource.0.scoreformat');  $scoreformat=&parameter_setting('scoreformat');
 if (!defined($scoreformat) || $scoreformat eq '') { $scoreformat="0f"; }  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>  </script>
   
 <startouttext />  <startouttext />
 You have <display>&format($awarded*$weight,$scoreformat)</display> out of $weight possible points.  $display
 <instructorcomment>  <instructorcomment><span style="color:red">
 <font color="red">  <br />You can modify the rounding of the score display using the "scoreformat" setting.
 <br />If non-integer points are used (e.g., 3.5), make sure to change the  You can upload comments and grade information with this resource when uploading CSV files. Feedback on grades can be controlled using the problemstatus parameter.
 display format in PPRM, or the result will be displayed in rounded form.  </span></instructorcomment>
 </font>  $gradeinfo
 </instructorcomment>  $comment
 <endouttext />  <endouttext />
 <block condition="0"><numericalresponse id='score' /></block>  
   <block condition="0"><numericalresponse id="score" /></block>
   
 </problem>  </problem>
Removed from v.1.8  
changed lines
  Added in v.1.15

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