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>'); |