Diff for /loncom/homework/lonsimpleproblemedit.pm between versions 1.24 and 1.25

version 1.24, 2009/08/17 18:18:35 version 1.25, 2009/08/17 19:46:49
Line 220  sub handler { Line 220  sub handler {
     ('resourcedata',\%storecontent,      ('resourcedata',\%storecontent,
      $env{'course.'.$env{'request.course.id'}.'.domain'},       $env{'course.'.$env{'request.course.id'}.'.domain'},
      $env{'course.'.$env{'request.course.id'}.'.num'});       $env{'course.'.$env{'request.course.id'}.'.num'});
           
           &Apache::lonnet::devalidatecourseresdata(
                               $env{'course.'.$env{'request.course.id'}.'.num'},
                               $env{'course.'.$env{'request.course.id'}.'.domain'});
   
     }      }
 # ------------------------------------------------------------------- Read Data  # ------------------------------------------------------------------- Read Data
Line 342  sub handler { Line 346  sub handler {
             unless ($stringtypes{$stringtype}) { $stringtype='cs'; }              unless ($stringtypes{$stringtype}) { $stringtype='cs'; }
     $r->print(      $r->print(
   '<table bgcolor="#00ee44" cellspacing="4" cellpadding="2">'.    '<table bgcolor="#00ee44" cellspacing="4" cellpadding="2">'.
           '<tr><td>'.&mt('Correct answer').': <input type="text" size="20" name="stringanswer" value="'.$stringanswer.'" />&nbsp;&nbsp;'.            '<tr><td><label>'.&mt('Correct answer').': <input type="text" size="20" name="stringanswer" value="'.$stringanswer.'" /></label>&nbsp;&nbsp;'.
       &Apache::loncommon::select_form        &Apache::loncommon::select_form
       ($stringtype,'stringtype',%stringtypes).        ($stringtype,'stringtype',%stringtypes).
   '</td></tr></table><br />');    '</td></tr></table><br />');
Line 352  sub handler { Line 356  sub handler {
         if ($qtype eq 'numerical') {          if ($qtype eq 'numerical') {
            my $numericalanswer=$qparms{$prefix.'numericalanswer'};             my $numericalanswer=$qparms{$prefix.'numericalanswer'};
            unless (defined($numericalanswer)) { $numericalanswer=''; }             unless (defined($numericalanswer)) { $numericalanswer=''; }
              my $numericaltolerance=$qparms{$prefix.'numericaltolerance'};
              unless (defined($numericaltolerance)) { $numericaltolerance='5%'; }
              my $numericalsigfigs=$qparms{$prefix.'numericalsigfigs'};
              unless (defined($numericalsigfigs)) { $numericalsigfigs='1,15'; }
   
            $r->print(             $r->print(
                   '<table bgcolor="#00ee44" cellspacing="4" cellpadding="2">'.                    '<table bgcolor="#00ee44" cellspacing="4" cellpadding="2">'.
                   '<tr><td>'.&mt('Correct answer').': <input type="text" size="20" name="numericalanswer" value="'.$numericalanswer.'" />'.                    '<tr><td><label>'.&mt('Correct answer').': <input type="text" size="20" name="numericalanswer" value="'.$numericalanswer.'" /></label>&nbsp;&nbsp;'.
                     '<label>'.&mt('Unit').':  <input type="text" size="5" name="numericalunit" value="'.$qparms{$prefix.'numericalunit'}.'" /></label>&nbsp;&nbsp;'.
                     '<label>'.&mt('Format').':  <input type="text" size="5" name="numericalformat" value="'.$qparms{$prefix.'numericalformat'}.'" /></label>&nbsp;&nbsp;'.
                     '<label>'.&mt('Tolerance').':  <input type="text" size="5" name="numericaltolerance" value="'.$numericaltolerance.'" /></label>&nbsp;&nbsp;'.
                     '<label>'.&mt('Significant digits').':  <input type="text" size="5" name="numericalsigfigs" value="'.$numericalsigfigs.'" /></label>'.
                   '</td></tr></table><br />');                    '</td></tr></table><br />');
            $r->print(&hint());             $r->print(&hint());
         }          }

Removed from v.1.24  
changed lines
  Added in v.1.25


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