--- loncom/interface/lonparmset.pm 2006/04/17 21:28:50 1.291 +++ 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.291 2006/04/17 21:28:50 www Exp $ +# $Id: lonparmset.pm,v 1.294 2006/04/18 20:35:47 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'}.''. + ' '.$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.' | '. - &mt('Part: [_1]',$part).' | '); + &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) { - $r->print(&mt('Type: [_1]',$value)); + $r->print(&mt('Type: [_1]',&standard_parameter_names($value))); } else { my ($level,@all)=&parmval_by_symb($what,$middle,&Apache::lonnet::metadata($middle,$what), $uname,$udom,$issection,$issection,$courseopt); @@ -3430,7 +3423,11 @@ sub parm_change_log { } $r->print(' | '); if ($stillactive) { - $r->print('Notify Link | '); + if (($uname) && ($udom)) { + $r->print('Notify Link | '); + } else { + $r->print('Blog Link | '); + } } else { $r->print(''); } @@ -3535,7 +3532,7 @@ sub handler { &assessparms($r); } elsif ($env{'form.action'} eq 'parameterchangelog' && $parm_permission) { &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=settable', - text=>"Parameter Change Log and Course Blog Posting"}); + text=>"Parameter Change Log"}); &parm_change_log($r); } } else { |