--- loncom/interface/loncreateuser.pm 2004/04/15 22:35:51 1.81 +++ loncom/interface/loncreateuser.pm 2004/05/07 22:04:16 1.82 @@ -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 @@ sub course_level_table { 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 @@ sub course_level_table { $plrole -$area +$area
Domain: $domain ENDEXTENT if ($_ ne 'cc') { $table .= <