--- 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('<table border="2">');
-    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 $spnam=$part.'_'.$name;
-	$r->print('<tr><td>'.
-		  &Apache::lonlocal::locallocaltime($parmlog{$id.'_exe_time'}).
-		  '</td><td>'.
-		  &Apache::loncommon::aboutmewrapper(
-						     &Apache::loncommon::plainname($parmlog{$id.'_exe_uname'},
-										   $parmlog{$id.'_exe_udom'}),
-						     $parmlog{$id.'_exe_uname'},
-						     $parmlog{$id.'_exe_udom'}).'<br /><tt>'.
-		  $parmlog{$id.'_exe_uname'}.'@'.$parmlog{$id.'_exe_udom'}.'</tt>'.
-		  ((($parmlog{$id.'_exe_uname'} ne $env{'user.name'}) ||
-		    ($parmlog{$id.'_exe_udom'} ne $env{'user.domain'}))?
-		   '<br />'.&Apache::loncommon::messagewrapper(&mt('Send message'),
-							       $parmlog{$id.'_exe_uname'},
-							       $parmlog{$id.'_exe_udom'}):'').
-		  '</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>'.
-		  ($parmlog{$id.'_nval'}?
-		   (&isdateparm($spnam)?&Apache::lonlocal::locallocaltime($parmlog{$id.'_nval'}):$parmlog{$id.'_nval'})
-		   :&mt('Deleted Parameter')).
-		  '</td></tr>');
+	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 ='<br />'.
+		&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('<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(&Apache::loncommon::end_page());