--- loncom/interface/lonparmset.pm 2006/04/14 11:55:58 1.286 +++ loncom/interface/lonparmset.pm 2006/04/15 02:22:33 1.289 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set parameters for assessments # -# $Id: lonparmset.pm,v 1.286 2006/04/14 11:55:58 www Exp $ +# $Id: lonparmset.pm,v 1.289 2006/04/15 02:22:33 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -3390,42 +3390,55 @@ sub parm_change_log { $env{'course.'.$env{'request.course.id'}.'.domain'}, $env{'course.'.$env{'request.course.id'}.'.num'}); my %exetime=(); - foreach my $key (keys %parmlog) { + foreach my $key (keys(%parmlog)) { if ($key=~/^(.+)\_exe\_time$/) { $exetime{$1}=$parmlog{$key}; } } $r->print('
'. - &Apache::lonlocal::locallocaltime($parmlog{$id.'_exe_time'}). - ' | '.
- &Apache::loncommon::aboutmewrapper(
- &Apache::loncommon::plainname($parmlog{$id.'_exe_uname'},
- $parmlog{$id.'_exe_udom'}),
- $parmlog{$id.'_exe_uname'},
- $parmlog{$id.'_exe_udom'}).' '. - $parmlog{$id.'_exe_uname'}.'@'.$parmlog{$id.'_exe_udom'}.''. - ((($parmlog{$id.'_exe_uname'} ne $env{'user.name'}) || - ($parmlog{$id.'_exe_udom'} ne $env{'user.domain'}))? - ' '.&Apache::loncommon::messagewrapper(&mt('Send message'), - $parmlog{$id.'_exe_uname'}, - $parmlog{$id.'_exe_udom'}):''). - ' | '. - $level{'parmlevel_'.$parmlog{$id.'_snum'}}. - ' | '.
- &mt($allparms{$name}).' '.$name.''. - ' | '. - ($part?&mt('Part: [_1]',$part):&mt('All parts')). - ' | '. - $parmlog{$id.'_symb'}. - ' | '. - ($parmlog{$id.'_nval'}? - (&isdateparm($spnam)?&Apache::lonlocal::locallocaltime($parmlog{$id.'_nval'}):$parmlog{$id.'_nval'}) - :&mt('Deleted Parameter')). - ' |
'.$time.' | +'.$about_me_link.' + '.$parmlog{$id.'_exe_udom'}.' + '.$parmlog{$id.'_exe_uname'}. + ':'.$parmlog{$id.'_exe_udom'}.''. + $send_msg_link.' |
+ '.$level{'parmlevel_'.$parmlog{$id.'_snum'}}.' | +'.&mt($allparms{$name}).' '.$name.' |
+ '.($part?&mt('Part: [_1]',$part):&mt('All parts')).' | +'.$parmlog{$id.'_symb'}.' | +'.$value.' |