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

version 1.23, 2009/06/11 16:48:28 version 1.24, 2009/08/17 18:18:35
Line 95  sub hint { Line 95  sub hint {
 ENDHINT  ENDHINT
 }  }
   
   sub script {
       my $text=$qparms{$prefix.'numericalscript'};
       my $ht=&mt('Scripting (optional)');
       return (<<ENDSCRIPT);
   <table bgcolor="#ccccaa" cellspacing="4" cellpadding="2">
   <tr><td><b>$ht</b><br />
   <textarea style="width:100%" name="numericalscript" cols="80" rows="4">$text</textarea>
   </td></tr>
   </table>
   <br />
   ENDSCRIPT
   }
   
 sub foil {  sub foil {
     my $number=shift;      my $number=shift;
     my %values='';      my %values='';
Line 254  sub handler { Line 267  sub handler {
                                '1 out of N multiple choice (radio button)',                                 '1 out of N multiple choice (radio button)',
    'option' => 'Option response',     'option' => 'Option response',
                            'string' => 'Short string response',                             'string' => 'Short string response',
                            'essay'  => 'Essay, open end');                             'essay'  => 'Essay, open end',
                              'numerical' => 'Numerical response');
         $qtype=$qparms{$prefix.'questiontype'};          $qtype=$qparms{$prefix.'questiontype'};
         unless (defined($qtype)) { $qtype='radio'; }          unless (defined($qtype)) { $qtype='radio'; }
         unless ($questiontypes{$qtype}) { $qtype='radio'; }          unless ($questiontypes{$qtype}) { $qtype='radio'; }
Line 263  sub handler { Line 277  sub handler {
                                ($qtype,'questiontype',%questiontypes).                                 ($qtype,'questiontype',%questiontypes).
   '</b><br /><input type="submit" value="'.&mt('Save and Edit').    '</b><br /><input type="submit" value="'.&mt('Save and Edit').
   '" /><p>&nbsp;</p>');    '" /><p>&nbsp;</p>');
   # Script
           if ($qtype eq 'numerical') {
              $r->print(&script());
           }
 # Question Text  # Question Text
         $r->print(&questiontext());          $r->print(&questiontext());
 # Radio, Option ===  # Radio, Option ===
Line 331  sub handler { Line 349  sub handler {
 # Hint  # Hint
     $r->print(&hint());      $r->print(&hint());
  }   }
           if ($qtype eq 'numerical') {
              my $numericalanswer=$qparms{$prefix.'numericalanswer'};
              unless (defined($numericalanswer)) { $numericalanswer=''; }
   
              $r->print(
                     '<table bgcolor="#00ee44" cellspacing="4" cellpadding="2">'.
                     '<tr><td>'.&mt('Correct answer').': <input type="text" size="20" name="numericalanswer" value="'.$numericalanswer.'" />'.
                     '</td></tr></table><br />');
              $r->print(&hint());
           }
 # Store Button  # Store Button
  $r->print(   $r->print(
   '<input type="submit" value="'.&mt('Save and Edit').'" /></form>');    '<input type="submit" value="'.&mt('Save and Edit').'" /></form>');

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


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