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

[albertel]

albertel		Fri May  7 18:04:16 2004 EDT

  Modified files:              
    /loncom/interface	loncreateuser.pm 
  Log:
  -BUG#2436
  
  
Index: loncom/interface/loncreateuser.pm
diff -u loncom/interface/loncreateuser.pm:1.81 loncom/interface/loncreateuser.pm:1.82
--- loncom/interface/loncreateuser.pm:1.81	Thu Apr 15 18:35:51 2004
+++ loncom/interface/loncreateuser.pm	Fri May  7 18:04:16 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Create a user
 #
-# $Id: loncreateuser.pm,v 1.81 2004/04/15 22:35:51 albertel Exp $
+# $Id: loncreateuser.pm,v 1.82 2004/05/07 22:04:16 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1297,6 +1297,7 @@
 	my $bgcol=$thiscourse;
 	$bgcol=~s/[^7-9a-e]//g;
 	$bgcol=substr($bgcol.$bgcol.$bgcol.'ffffff',2,6);
+	my ($domain)=split(/\//,$thiscourse);
 	foreach  ('st','ta','ep','ad','in','cc') {
 	    if (&Apache::lonnet::allowed('c'.$_,$thiscourse)) {
 		my $plrole=&Apache::lonnet::plaintext($_);
@@ -1304,7 +1305,7 @@
 <tr bgcolor="#$bgcol">
 <td><input type="checkbox" name="act_$protectedcourse\_$_"></td>
 <td>$plrole</td>
-<td>$area</td>
+<td>$area<br />Domain: $domain</td>
 ENDEXTENT
 	        if ($_ ne 'cc') {
 		    $table .= <<ENDSECTION;