--- loncom/interface/loncreateuser.pm	2001/03/03 00:50:11	1.6
+++ loncom/interface/loncreateuser.pm	2001/03/17 15:06:57	1.7
@@ -16,7 +16,7 @@
 #
 # 2/14 Gerd Kortemeyer)
 #
-# 2/14,2/17,2/19,2/20,2/21,2/22,2/23,3/2 Gerd Kortemeyer
+# 2/14,2/17,2/19,2/20,2/21,2/22,2/23,3/2,3/17 Gerd Kortemeyer
 #
 package Apache::loncreateuser;
 
@@ -182,7 +182,7 @@ ENDNUSER
                  my %coursedata=&Apache::lonnet::coursedescription($1.'_'.$2);
                  my $carea='Course: '.$coursedata{'description'};
                  $inccourses{$1.'_'.$2}=1;
-                 if (&Apache::lonnet::allowed('c'.$trole,$1.'_'.$2)) {
+                 if (&Apache::lonnet::allowed('c'.$trole,$1.'/'.$2)) {
 		     $allows=1;
                  }
                  $bgcol=$1.'_'.$2;
@@ -193,11 +193,15 @@ ENDNUSER
 		 }
                  $area=$carea;
 	      } else {
-                 if ($1) {
+                 if ($area=~/^\/(\w+)\//) {
 		     $incdomains{$1}=1;
                      if (&Apache::lonnet::allowed('c'.$trole,$1)) {
 			 $allows=1;
                      }
+                 } else {
+                     if (&Apache::lonnet::allowed('c'.$trole,'/')) {
+			 $allows=1;
+                     }
                  }
 	      }