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

Diff for /loncom/interface/lonparmset.pm between versions 1.309 and 1.311

version 1.309, 2006/06/02 06:48:54 version 1.311, 2006/06/02 22:12:50
Line 3345  sub standard_parameter_names { Line 3345  sub standard_parameter_names {
                                                    'problemstatus' => 'Problem Status Visible',                                                     'problemstatus' => 'Problem Status Visible',
    'int_pos' => 'Positive Integer',     'int_pos' => 'Positive Integer',
    'int_zero_pos' => 'Positive Integer or Zero',     'int_zero_pos' => 'Positive Integer or Zero',
    'hinttries' => 'Number of Tries till Hints appear');     'hinttries' => 'Number of Tries till Hints appear',
                                                      'numbubbles' => 'Number of Bubbles in Exam Mode');
     if ($standard_parms{$name}) {      if ($standard_parms{$name}) {
  return $standard_parms{$name};    return $standard_parms{$name}; 
     } else {       } else { 
Line 3364  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 3459  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.309  
changed lines
  Added in v.1.311

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