--- loncom/auth/lonroles.pm 2002/05/06 14:20:27 1.36
+++ loncom/auth/lonroles.pm 2002/05/21 13:07:40 1.38
@@ -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.38 2002/05/21 13:07:40 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'}, 'true')}.
+ "
\n");
$r->print("Author and Co-Author roles may not be available on ".
"servers other than your home server.");
} else {
@@ -296,7 +297,8 @@ ENDHEADER
split(/\//,Apache::lonnet::declutter($where));
# First, Co-Authorship roles
if ($role eq 'ca') {
- my $home = &Apache::lonnet::homeserver($trest,$tdom);
+ my $home = &Apache::lonnet::homeserver($trest,$tdom,
+ 'true');
$button = 0 if ($home ne $r->dir_config('lonHostID'));
#next if ($home eq 'no_host');
$home = $Apache::lonnet::hostname{$home};
@@ -307,7 +309,7 @@ ENDHEADER
} elsif ($role eq 'au') {
# Authors
my $home = &Apache::lonnet::homeserver
- ($ENV{'user.name'},$ENV{'user.domain'});
+ ($ENV{'user.name'},$ENV{'user.domain'}, 'true');
$button = 0 if ($home ne $r->dir_config('lonHostID'));
#next if ($home eq 'no_host');
$home = $Apache::lonnet::hostname{$home};
@@ -318,7 +320,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 +333,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;