--- loncom/interface/lonparmset.pm 2006/06/02 06:48:54 1.309 +++ loncom/interface/lonparmset.pm 2006/06/02 22:12:50 1.311 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set parameters for assessments # -# $Id: lonparmset.pm,v 1.309 2006/06/02 06:48:54 www Exp $ +# $Id: lonparmset.pm,v 1.311 2006/06/02 22:12:50 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -3345,7 +3345,8 @@ sub standard_parameter_names { 'problemstatus' => 'Problem Status Visible', 'int_pos' => 'Positive Integer', '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}) { return $standard_parms{$name}; } else { @@ -3364,13 +3365,25 @@ sub parm_change_log { my %parmlog=&Apache::lonnet::dump('nohist_parameterlog', $env{'course.'.$env{'request.course.id'}.'.domain'}, $env{'course.'.$env{'request.course.id'}.'.num'}); + if ((keys(%parmlog))[0]=~/^error\:/) { undef(%parmlog); } - $r->print('
'); - unless ($env{'form.show'}) { $env{'form.show'}=10; } - my $countselect = &Apache::lonmeta::selectbox('show', - $env{'form.show'}, - undef, - (10,20,50,100,1000,10000,100000)); + + $r->print(' + '); + + 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(''.&mt('[_1] Records',$countselect).''. ''); @@ -3459,7 +3472,8 @@ sub parm_change_log { $r->print(&Apache::loncommon::end_data_table_row()); } $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('
');