--- loncom/interface/lonparmset.pm 2006/04/18 18:10:55 1.293 +++ loncom/interface/lonparmset.pm 2006/04/18 20:35:47 1.294 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set parameters for assessments # -# $Id: lonparmset.pm,v 1.293 2006/04/18 18:10:55 www Exp $ +# $Id: lonparmset.pm,v 1.294 2006/04/18 20:35:47 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -3359,55 +3359,49 @@ 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'}); - my %exetime=(); - foreach my $key (keys(%parmlog)) { - if ($key=~/^(.+)\_exe\_time$/) { - $exetime{$1}=$parmlog{$key}; - } - } my $courseopt=&Apache::lonnet::get_courseresdata($env{'course.'.$env{'request.course.id'}.'.num'}, $env{'course.'.$env{'request.course.id'}.'.domain'}); $r->print('
'.$time.' | '.$about_me_link.
- ' '.$parmlog{$id.'_exe_uname'}. - ':'.$parmlog{$id.'_exe_udom'}.''. + ' '.$parmlog{$id}{'exe_uname'}. + ':'.$parmlog{$id}{'exe_udom'}.''. $send_msg_link.' | ');
my $makenewrow=0;
my %istype=();
foreach my $changed (reverse(sort(@changes))) {
- my $value=$parmlog{$id.'_logentry'}->{$changed};
+ my $value=$parmlog{$id}{'logentry'}->{$changed};
my ($realm,$section,$parmname,$part,$typeflag,$what,$middle,$uname,$udom,$issection)=
- &components($changed,$parmlog{$id.'_uname'},$parmlog{$id.'_udom'});
+ &components($changed,$parmlog{$id}{'uname'},$parmlog{$id}{'udom'});
if ($typeflag) { $istype{$parmname}=$value; }
if ($makenewrow) { $r->print('|||
'.$realm.' | '.$section.' | '. &standard_parameter_names($parmname).' | '. ($part?&mt('Part: [_1]',$part):&mt('All Parts')).' | '); my $stillactive=0; - if ($parmlog{$id.'_deleteflag'}) { + if ($parmlog{$id}{'deleteflag'}) { $r->print(&mt('Deleted')); } else { if ($typeflag) { |