[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.37

version 1.31, 2010/01/27 23:26:09 version 1.37, 2014/12/15 00:50:20
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 205  sub handler { Line 205  sub handler {
     my $weightprefix=$env{'request.course.id'}.'.'.$symb.'.';      my $weightprefix=$env{'request.course.id'}.'.'.$symb.'.';
           
 # ---------------------------------------------------------- Anything to store?  # ---------------------------------------------------------- Anything to store?
       my $storeresult;
     if (($symb) && (defined($env{'form.questiontype'}))) {      if (($symb) && (defined($env{'form.questiontype'}))) {
         my %storecontent=();          my %storecontent=();
         undef %storecontent;          undef %storecontent;
Line 218  sub handler { Line 218  sub handler {
  $env{'form.newopt'}=~s/\'/\\\'/g;   $env{'form.newopt'}=~s/\'/\\\'/g;
                 $curoptions{$env{'form.newopt'}}=$env{'form.newopt'};                  $curoptions{$env{'form.newopt'}}=$env{'form.newopt'};
     }      }
             $env{'form.options'}="('".join("','",keys %curoptions)."')";              $env{'form.options'}="('".join("','",keys(%curoptions))."')";
  }   }
  $env{'form.hiddenparts'}='!'.$env{'form.questiontype'};   $env{'form.hiddenparts'}='!'.$env{'form.questiontype'};
         foreach (keys %env) {          foreach my $envkey (keys(%env)) {
     if ($_=~/^form\.(\w+)$/) {      if ($envkey=~/^form\.(\w+)$/) {
                 my $parm=$1;                  my $parm=$1;
  $storecontent{$prefix.$parm}=$env{'form.'.$parm};   $storecontent{$prefix.$parm}=$env{'form.'.$parm};
                 $storecontent{$prefix.$parm}=~s/^\s+//s;                  $storecontent{$prefix.$parm}=~s/^\s+//s;
Line 247  sub handler { Line 247  sub handler {
         &Apache::lonnet::devalidatecourseresdata(          &Apache::lonnet::devalidatecourseresdata(
                             $env{'course.'.$env{'request.course.id'}.'.num'},                              $env{'course.'.$env{'request.course.id'}.'.num'},
                             $env{'course.'.$env{'request.course.id'}.'.domain'});                              $env{'course.'.$env{'request.course.id'}.'.domain'});
           if ($reply eq 'ok') {
               if ($env{'form.forceview'}) {
                   my $dest = &get_parent_uri($symb);
                   if ($dest) {
                       $r->internal_redirect($dest);
                       return OK;
                   }
               }
           } else {
               $storeresult = $reply;
           }
     }      }
 # ------------------------------------------------------------------- Read Data  # ------------------------------------------------------------------- Read Data
   
Line 256  sub handler { Line 266  sub handler {
      $env{'course.'.$env{'request.course.id'}.'.num'},       $env{'course.'.$env{'request.course.id'}.'.num'},
      $env{'request.course.id'}.'.'.$symb);       $env{'request.course.id'}.'.'.$symb);
   
       my $js = <<"ENDJS";
   
   <script type="text/javascript">
   // <![CDATA[
   
   function setForceView() {
       if (document.getElementById('spview')) {
           document.getElementById('spview').value = 1;
       }
       return true;
   }
   // END LON-CAPA Internal -->
   // ]]>
   </script>
   
   ENDJS
   
 # ------------------------------------------------------------ Print the screen  # ------------------------------------------------------------ Print the screen
     my $spell_header=&Apache::lonhtmlcommon::spellheader();      my $spell_header=&Apache::lonhtmlcommon::spellheader();
     $r->print(&Apache::loncommon::start_page('Simple Problem Editor',      $r->print(&Apache::loncommon::start_page('Simple Problem Editor',
      $spell_header));       $spell_header.$js));
     if ($symb) {      if ($symb) {
     my $title='<h1>'.&Apache::lonnet::gettitle($symb).'</h1>';      my $title='<h1>'.&Apache::lonnet::gettitle($symb).'</h1>';
         my $displaylink = &get_parent_uri($symb);          if (&get_parent_uri($symb)) {
         if ($displaylink ne '') {              $r->print($title);
             my $functions=&Apache::lonhtmlcommon::start_funclist()              if ($storeresult) {
                          .&Apache::lonhtmlcommon::add_item_funclist(                  $r->print('<p class="LC_error">'.&mt('An error: [_1] occurred saving your changes',$storeresult).'</p>'); 
                               '<a href="'.$displaylink.'">'              }
                              .&mt('Student View').'</a>')  
                              .&Apache::lonhtmlcommon::end_funclist();  
             $r->print(&Apache::loncommon::head_subbox($functions)  
                      .$title);  
         } else {          } else {
             $r->print($title              $r->print($title
                      .'<p class="LC_error">'                       .'<p class="LC_error">'
Line 292  sub handler { Line 315  sub handler {
            .&rawrendering($symb)             .&rawrendering($symb)
            .'</div>'             .'</div>'
         );          );
         $r->print('<form name="simpleedit" method="post">');          $r->print('<form name="simpleedit" method="post" action="">');
 # Question Type          # Question Type        
         my %questiontypes=(          my %questiontypes=(
                'radio'     => '1 out of N multiple choice (radio button)',                 'radio'     => '1 out of N multiple choice (radio button)',
Line 309  sub handler { Line 332  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(
             '<p>'              '<p>'
              .'<input type="hidden" name="forceview" value="" id="spview" />' 
            .'<input type="submit" value="'.&mt('Save and Edit').'" />'             .'<input type="submit" value="'.&mt('Save and Edit').'" />'
              .('&nbsp;' x3)
              .'<input type="submit" value="'.&mt('Save and View').'" onclick="javascript:setForceView();" />'
            .'</p>'             .'</p>'
         );          );
 # Script  # Script
Line 343  sub handler { Line 369  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 382  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 415  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());
Line 414  sub handler { Line 440  sub handler {
         }          }
 # 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').'" />'.
     ('&nbsp;' x3).
     '<input type="submit" value="'.&mt('Save and View').'" onclick="javascript:setForceView();" />'.
     '</form>');
     } else {      } else {
  $r->print(&mt('Could not identify problem.'));   $r->print(&mt('Could not identify problem.'));
     }      }
     $r->print(&Apache::loncommon::end_page());      $r->print(&Apache::loncommon::end_page());
     return OK;      return OK;
 }   }
   
 1;  1;
 __END__  __END__
Removed from v.1.31  
changed lines
  Added in v.1.37

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