version 1.287, 2006/04/14 16:38:43
|
version 1.288, 2006/04/15 01:05:01
|
Line 3399 sub parm_change_log {
|
Line 3399 sub parm_change_log {
|
foreach my $id (sort { $exetime{$a}<=>$exetime{$b} } (keys(%exetime))) { |
foreach my $id (sort { $exetime{$a}<=>$exetime{$b} } (keys(%exetime))) { |
my ($part,$name)=($parmlog{$id.'_spnam'}=~/^(.*)[\_\.]([^\_\.]+)$/); |
my ($part,$name)=($parmlog{$id.'_spnam'}=~/^(.*)[\_\.]([^\_\.]+)$/); |
my $spnam=$part.'_'.$name; |
my $spnam=$part.'_'.$name; |
$r->print('<tr><td>'. |
my $time = |
&Apache::lonlocal::locallocaltime($parmlog{$id.'_exe_time'}). |
&Apache::lonlocal::locallocaltime($parmlog{$id.'_exe_time'}); |
'</td><td>'. |
my $name = |
&Apache::loncommon::aboutmewrapper( |
&Apache::loncommon::plainname($parmlog{$id.'_exe_uname'}, |
&Apache::loncommon::plainname($parmlog{$id.'_exe_uname'}, |
$parmlog{$id.'_exe_udom'}); |
$parmlog{$id.'_exe_udom'}), |
my $about_me_link = |
$parmlog{$id.'_exe_uname'}, |
&Apache::loncommon::aboutmewrapper($name, |
$parmlog{$id.'_exe_udom'}).'<br /><tt>'. |
$parmlog{$id.'_exe_uname'}, |
$parmlog{$id.'_exe_uname'}.':'.$parmlog{$id.'_exe_udom'}.'</tt>'. |
$parmlog{$id.'_exe_udom'}); |
((($parmlog{$id.'_exe_uname'} ne $env{'user.name'}) || |
|
($parmlog{$id.'_exe_udom'} ne $env{'user.domain'}))? |
my $send_msg_link; |
'<br />'.&Apache::loncommon::messagewrapper(&mt('Send message'), |
if ((($parmlog{$id.'_exe_uname'} ne $env{'user.name'}) |
$parmlog{$id.'_exe_uname'}, |
|| ($parmlog{$id.'_exe_udom'} ne $env{'user.domain'}))) { |
$parmlog{$id.'_exe_udom'}):''). |
my $send_msg_link ='<br />'. |
'</td><td>'. |
&Apache::loncommon::messagewrapper(&mt('Send message'), |
$level{'parmlevel_'.$parmlog{$id.'_snum'}}. |
$parmlog{$id.'_exe_uname'}, |
'</td><td>'. |
$parmlog{$id.'_exe_udom'}); |
&mt($allparms{$name}).'<br /><tt>'.$name.'</tt>'. |
} |
'</td><td>'. |
my $value; |
($part?&mt('Part: [_1]',$part):&mt('All parts')). |
if ($parmlog{$id.'_nval'}) { |
'</td><td>'. |
if (&isdateparm($spnam)) { |
$parmlog{$id.'_symb'}. |
$value = |
'</td><td>'. |
&Apache::lonlocal::locallocaltime($parmlog{$id.'_nval'}); |
($parmlog{$id.'_nval'}? |
} else { |
(&isdateparm($spnam)?&Apache::lonlocal::locallocaltime($parmlog{$id.'_nval'}):$parmlog{$id.'_nval'}) |
$value = $parmlog{$id.'_nval'}; |
:&mt('Deleted Parameter')). |
} |
'</td></tr>'); |
} else { |
|
$value = &mt('Deleted Parameter'); |
|
} |
|
$r->print('<tr><td>'.$time.'</td> |
|
<td>'.$about_me_link.'<br /> |
|
<tt>'.$parmlog{$id.'_exe_udom'}.'</tt><br /> |
|
<tt>'.$parmlog{$id.'_exe_uname'}. |
|
':'.$parmlog{$id.'_exe_udom'}.'</tt>'. |
|
$send_msg_link.'</td> |
|
<td>'.$level{'parmlevel_'.$parmlog{$id.'_snum'}}.'</td> |
|
<td>'.&mt($allparms{$name}).'<br /><tt>'.$name.'</tt></td> |
|
<td>'.($part?&mt('Part: [_1]',$part):&mt('All parts')).'</td> |
|
<td>'.$parmlog{$id.'_symb'}.'</td> |
|
<td>'.$value.'</td></tr>'); |
} |
} |
$r->print('</table>'); |
$r->print('</table>'); |
$r->print(&Apache::loncommon::end_page()); |
$r->print(&Apache::loncommon::end_page()); |