[BACK]Return to lonsimpleproblemedit.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/lonsimpleproblemedit.pm between versions 1.31 and 1.32

version 1.31, 2010/01/27 23:26:09 version 1.32, 2010/06/06 02:40:35
Line 137  sub foil { Line 137  sub foil {
     my $selectvalue=&Apache::loncommon::select_form(      my $selectvalue=&Apache::loncommon::select_form(
                         $value,                          $value,
                         'value'.$number,                          'value'.$number,
                         %values);                          \%values);
     my $selectposition=&Apache::loncommon::select_form(      my $selectposition=&Apache::loncommon::select_form(
                            $position,                             $position,
                            'position'.$number,                             'position'.$number,
                            &Apache::lonlocal::texthash(%positions));                             {&Apache::lonlocal::texthash(%positions)});
     my $text=$qparms{$prefix.'text'.$number};      my $text=$qparms{$prefix.'text'.$number};
     my %lt=&Apache::lonlocal::texthash('foil'  => 'Foil',      my %lt=&Apache::lonlocal::texthash('foil'  => 'Foil',
        'value' => 'Value',         'value' => 'Value',
Line 309  sub handler { Line 309  sub handler {
            .&Apache::loncommon::select_form(             .&Apache::loncommon::select_form(
                 $qtype,                  $qtype,
                 'questiontype',                  'questiontype',
                 &Apache::lonlocal::texthash(%questiontypes))                  {&Apache::lonlocal::texthash(%questiontypes)})
            .'</fieldset>'             .'</fieldset>'
         );          );
         $r->print(          $r->print(
Line 343  sub handler { Line 343  sub handler {
                       &Apache::loncommon::select_form(                        &Apache::loncommon::select_form(
                           $randomize,                            $randomize,
                           'randomize',                            'randomize',
                           &Apache::lonlocal::texthash(%randomizes)).                            {&Apache::lonlocal::texthash(%randomizes)}).
   '</td></tr><tr><td bgcolor="#F0F0F0">');    '</td></tr><tr><td bgcolor="#F0F0F0">');
 # Option Response: Options  # Option Response: Options
     if ($qtype eq 'option') {      if ($qtype eq 'option') {
Line 356  sub handler { Line 356  sub handler {
                   $options.'" />'.&mt('Add new option').': '.                    $options.'" />'.&mt('Add new option').': '.
           '<input type="text" name="newopt" size="15" />'.            '<input type="text" name="newopt" size="15" />'.
           &mt('Delete an option').': '.            &mt('Delete an option').': '.
           &Apache::loncommon::select_form('','delopt',('' => '',%optionshash)).            &Apache::loncommon::select_form('','delopt',{'' => '',%optionshash}).
           '</td></tr><tr><td>');            '</td></tr><tr><td>');
     }      }
 # Foils  # Foils
Line 389  sub handler { Line 389  sub handler {
                       &Apache::loncommon::select_form(                        &Apache::loncommon::select_form(
                           $stringtype,                            $stringtype,
                           'stringtype',                            'stringtype',
                           &Apache::lonlocal::texthash(%stringtypes)).                            {&Apache::lonlocal::texthash(%stringtypes)}).
   '</td></tr></table><br />');    '</td></tr></table><br />');
 # Hint  # Hint
     $r->print(&hint());      $r->print(&hint());
Removed from v.1.31  
changed lines
  Added in v.1.32

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