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

Diff for /loncom/interface/lonparmset.pm between versions 1.310 and 1.312

version 1.310, 2006/06/02 10:02:37 version 1.312, 2006/06/12 18:43:56
Line 1573  sub assessparms { Line 1573  sub assessparms {
  &displaymenu($r,\%allparms,\%allparts,\@pscat,\@psprt,\%keyorder);   &displaymenu($r,\%allparms,\%allparts,\@pscat,\@psprt,\%keyorder);
     } else {      } else {
         my ($map,$id,$resource)=&Apache::lonnet::decode_symb($pssymb);          my ($map,$id,$resource)=&Apache::lonnet::decode_symb($pssymb);
         $r->print(&mt('Specific Resource').": ".$resource.   my $title = &Apache::lonnet::gettitle($pssymb);
                   '<input type="hidden" value="'.$pssymb.'" name="symb">'.          $r->print(&mt('Specific Resource: [_1] ([_2])',$title,$resource).
                     '<input type="hidden" value="'.$pssymb.'" name="symb" />'.
   '<br /><label><b>'.&mt('Show all parts').': <input type="checkbox" name="psprt" value="all"'.    '<br /><label><b>'.&mt('Show all parts').': <input type="checkbox" name="psprt" value="all"'.
   ($env{'form.psprt'}?' checked="checked"':'').' /></b></label><br />');    ($env{'form.psprt'}?' checked="checked"':'').' /></b></label><br />');
     }      }
Line 3365  sub parm_change_log { Line 3366  sub parm_change_log {
     my %parmlog=&Apache::lonnet::dump('nohist_parameterlog',      my %parmlog=&Apache::lonnet::dump('nohist_parameterlog',
       $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'});
   
     if ((keys(%parmlog))[0]=~/^error\:/) { undef(%parmlog); }      if ((keys(%parmlog))[0]=~/^error\:/) { undef(%parmlog); }
     $r->print('<form method="post"><input type="hidden" name="action" value="parameterchangelog" />');  
     unless ($env{'form.show'}) { $env{'form.show'}=10; }      $r->print('<form action="/adm/parmset?action=settable"
     my $countselect = &Apache::lonmeta::selectbox('show',                       method="post" name"parameterlog">
                                                   $env{'form.show'},                 <input type="hidden" name="action"
                                                   undef,                        value="parameterchangelog" />');
                                                   (10,20,50,100,1000,10000,100000));      
       my %saveable_parameters = ('show' => 'scalar',);
       &Apache::loncommon::store_course_settings('parameter_log',
                                                 \%saveable_parameters);
       &Apache::loncommon::restore_course_settings('parameter_log',
                                                   \%saveable_parameters);
       if (!$env{'form.show'}) { $env{'form.show'}=10; }
   
       my $countselect =
    &Apache::lonmeta::selectbox('show',$env{'form.show'},undef,
       (&mt('all'),10,20,50,100,1000,10000));
   
     $r->print('<nobr>'.&mt('[_1] Records',$countselect).'</nobr>'.      $r->print('<nobr>'.&mt('[_1] Records',$countselect).'</nobr>'.
       '<input type="submit" value="'.&mt('Display').'" />');        '<input type="submit" value="'.&mt('Display').'" />');
   
Line 3460  sub parm_change_log { Line 3473  sub parm_change_log {
     $r->print(&Apache::loncommon::end_data_table_row());      $r->print(&Apache::loncommon::end_data_table_row());
  }   }
  $shown++;   $shown++;
  if ($shown>=$env{'form.show'}) { last; }   if (!($env{'form.show'} eq &mt('all') 
         || $shown<=$env{'form.show'})) { last; }
     }      }
     $r->print(&Apache::loncommon::end_data_table());      $r->print(&Apache::loncommon::end_data_table());
     $r->print('</form>');      $r->print('</form>');
Removed from v.1.310  
changed lines
  Added in v.1.312

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