[BACK]Return to lonparmset.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonparmset.pm between versions 1.287 and 1.288

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());
Removed from v.1.287  
changed lines
  Added in v.1.288

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>