[LON-CAPA-cvs] cvs: loncom /html/adm/helper newslot.helper

[albertel]

albertel		Tue May  9 15:06:07 2006 EDT

  Modified files:              
    /loncom/html/adm/helper	newslot.helper 
  Log:
  - : is the username/domain seperator
  
  
Index: loncom/html/adm/helper/newslot.helper
diff -u loncom/html/adm/helper/newslot.helper:1.15 loncom/html/adm/helper/newslot.helper:1.16
--- loncom/html/adm/helper/newslot.helper:1.15	Mon Apr 24 19:23:18 2006
+++ loncom/html/adm/helper/newslot.helper	Tue May  9 15:06:07 2006
@@ -290,11 +290,13 @@
 
         if ( $helper->{'VARS'}{'proctor'} =~/\S/ ) {
 	    my @names;
+	    # just need the username/domain throw away the other data 
+            # that <student> returns
 	    foreach my $user (split(/\|\|\|/, $helper->{'VARS'}{'proctor'})) {
 		my ($uname,$udomain)=split(/:/,$user);
-		push(@names,"$uname\@$udomain");
+		push(@names,"$uname:$udomain");
 	    }
-	    # make sure the usenrmaes are unique
+	    # make sure the usernmaes are unique
 	    my %proctors = map { ($_,1) } @names;
 	    $slot{'proctor'}=join(',',sort(keys(%proctors)));
 	}
@@ -306,8 +308,9 @@
 	}
 
         if ( $helper->{'VARS'}{'allowedusers'} =~/\S/ ) {
-
 	    my @names;
+	    # just need the username/domain throw away the other data 
+            # that <student> returns
 	    foreach my $item (split(/\|\|\|/,
 				    $helper->{'VARS'}{'allowedusers'})) {
 		my ($uname,$udomain)=split(/:/,$item);