--- loncom/auth/lonroles.pm 2002/05/04 02:30:00 1.35 +++ loncom/auth/lonroles.pm 2002/05/21 15:01:12 1.39 @@ -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.39 2002/05/21 15:01:12 stredwic 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(< @@ -212,7 +212,8 @@ ENDHEADER ("

$ENV{'user.name'}, Please Select a Role

\n"); $r->print("Your home server is ". $Apache::lonnet::hostname{&Apache::lonnet::homeserver - ($ENV{'user.name'},$ENV{'user.domain'})}."
\n"); + ($ENV{'user.name'},$ENV{'user.domain'})}. + "
\n"); $r->print("Author and Co-Author roles may not be available on ". "servers other than your home server."); } else { @@ -318,7 +319,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 +332,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;