[LON-CAPA-cvs] cvs: loncom /interface lonparmset.pm

[albertel]

albertel		Fri Apr 14 12:38:43 2006 EDT

  Modified files:              
    /loncom/interface	lonparmset.pm 
  Log:
  - ':' is the official domain and username seperator 
  
  
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.286 loncom/interface/lonparmset.pm:1.287
--- loncom/interface/lonparmset.pm:1.286	Fri Apr 14 07:55:58 2006
+++ loncom/interface/lonparmset.pm	Fri Apr 14 12:38:43 2006
@@ -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.287 2006/04/14 16:38:43 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3390,13 +3390,13 @@
 				      $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>'.
@@ -3407,7 +3407,7 @@
 										   $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'}.':'.$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'),