--- loncom/interface/lonparmset.pm 2006/04/18 02:13:49 1.292 +++ loncom/interface/lonparmset.pm 2006/04/18 18:10:55 1.293 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set parameters for assessments # -# $Id: lonparmset.pm,v 1.292 2006/04/18 02:13:49 www Exp $ +# $Id: lonparmset.pm,v 1.293 2006/04/18 18:10:55 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -394,30 +394,8 @@ sub storeparm_by_symb { return ''; } -{ - my $logid; - sub log_parmset { - my ($storehash,$delflag,$uname,$udom)=@_; - my $logentry=join(',',map { - &Apache::lonnet::escape($_).'=>'.&Apache::lonnet::escape($$storehash{$_}); - } keys %$storehash); - $logid++; - my $id=time().'00000'.$$.'00000'.$logid; - &Apache::lonnet::put('nohist_parameterlog', - { - $id.'_exe_uname' => $env{'user.name'}, - $id.'_exe_udom' => $env{'user.domain'}, - $id.'_exe_time' => time(), - $id.'_exe_ip' => $ENV{'REMOTE_ADDR'}, - $id.'_delflag' => $delflag, - $id.'_logentry' => $logentry, - $id.'_uname' => $uname, - $id.'_udom' => $udom, - }, - $env{'course.'.$env{'request.course.id'}.'.domain'}, - $env{'course.'.$env{'request.course.id'}.'.num'} - ); - } +sub log_parmset { + return &Apache::lonnet::instructor_log('parameterlog',@_); } sub storeparm_by_symb_inner { @@ -2614,8 +2592,8 @@ sub listdata { # # Ready to print # - $r->print(&tablestart().'
'.$time.' | + $r->print('||||
'.$time.' | '.$about_me_link.
' '.$parmlog{$id.'_exe_uname'}. ':'.$parmlog{$id.'_exe_udom'}.''. $send_msg_link.' | ');
my $makenewrow=0;
my %istype=();
- foreach my $changed (sort @changes) {
- my ($key,$value)=split(/\=\>/,&Apache::lonnet::unescape($changed));
+ foreach my $changed (reverse(sort(@changes))) {
+ my $value=$parmlog{$id.'_logentry'}->{$changed};
my ($realm,$section,$parmname,$part,$typeflag,$what,$middle,$uname,$udom,$issection)=
- &components($key,$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')).' | '); |