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

version 1.310, 2006/06/02 10:02:37 version 1.311, 2006/06/02 22:12:50
Line 3365  sub parm_change_log { Line 3365  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 3472  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.311

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