--- loncom/interface/lonparmset.pm 2006/04/14 16:38:43 1.287
+++ 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.287 2006/04/14 16:38:43 albertel Exp $
+# $Id: lonparmset.pm,v 1.289 2006/04/15 02:22:33 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -3399,33 +3399,46 @@ sub parm_change_log {
foreach my $id (sort { $exetime{$a}<=>$exetime{$b} } (keys(%exetime))) {
my ($part,$name)=($parmlog{$id.'_spnam'}=~/^(.*)[\_\.]([^\_\.]+)$/);
my $spnam=$part.'_'.$name;
- $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')).
- ' |
');
+ my $time =
+ &Apache::lonlocal::locallocaltime($parmlog{$id.'_exe_time'});
+ my $plainname =
+ &Apache::loncommon::plainname($parmlog{$id.'_exe_uname'},
+ $parmlog{$id.'_exe_udom'});
+ my $about_me_link =
+ &Apache::loncommon::aboutmewrapper($plainname,
+ $parmlog{$id.'_exe_uname'},
+ $parmlog{$id.'_exe_udom'});
+
+ my $send_msg_link;
+ if ((($parmlog{$id.'_exe_uname'} ne $env{'user.name'})
+ || ($parmlog{$id.'_exe_udom'} ne $env{'user.domain'}))) {
+ my $send_msg_link ='
'.
+ &Apache::loncommon::messagewrapper(&mt('Send message'),
+ $parmlog{$id.'_exe_uname'},
+ $parmlog{$id.'_exe_udom'});
+ }
+ my $value;
+ if ($parmlog{$id.'_nval'}) {
+ if (&isdateparm($spnam)) {
+ $value =
+ &Apache::lonlocal::locallocaltime($parmlog{$id.'_nval'});
+ } else {
+ $value = $parmlog{$id.'_nval'};
+ }
+ } else {
+ $value = &mt('Deleted Parameter');
+ }
+ $r->print(''.$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.' |
');
}
$r->print('');
$r->print(&Apache::loncommon::end_page());