--- 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;