--- loncom/auth/lonroles.pm 2002/05/06 14:20:27 1.36 +++ 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.36 2002/05/06 14:20:27 matthew Exp $ +# $Id: lonroles.pm,v 1.39 2002/05/21 15:01:12 stredwic Exp $ # # Copyright Michigan State University Board of Trustees # @@ -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;