--- loncom/auth/lonroles.pm 2002/05/04 02:30:00 1.35 +++ loncom/auth/lonroles.pm 2002/05/13 09:10:15 1.37 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # User Roles Screen # -# $Id: lonroles.pm,v 1.35 2002/05/04 02:30:00 matthew Exp $ +# $Id: lonroles.pm,v 1.37 2002/05/13 09:10:15 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -115,7 +115,7 @@ sub handler { $r->content_type('text/html'); &Apache::loncommon::no_cache($r); $r->send_http_header; - my $swinfo=&Apache::lonmenu::rawconfig; + my $swinfo=&Apache::lonmenu::rawconfig($r); print (<Entering Course @@ -146,7 +146,7 @@ ENDREDIR $r->send_http_header; return OK if $r->header_only; - my $swinfo=&Apache::lonmenu::rawconfig; + my $swinfo=&Apache::lonmenu::rawconfig($r); $r->print(< @@ -318,7 +318,7 @@ ENDHEADER $ttype='Course'; if ($tsection) { $ttype.='
Section/Group: '.$tsection; - } + } my $tcourseid=$tdom.'_'.$trest; if ($ENV{'course.'.$tcourseid.'.description'}) { $twhere=$ENV{'course.'.$tcourseid.'.description'}; @@ -331,10 +331,8 @@ ENDHEADER $twhere='Currently not available'; $ENV{'course.'.$tcourseid.'.description'}=$twhere; } - if ($trole ne 'st') { - $twhere.="
Domain:".$tdom; - } } + if ($role ne 'st') { $twhere.="
Domain:".$tdom; } } elsif ($tdom) { $ttype='Domain'; $twhere=$tdom;