--- loncom/auth/lonroles.pm 2006/12/14 20:49:23 1.174
+++ loncom/auth/lonroles.pm 2007/03/02 23:17:48 1.176
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# User Roles Screen
#
-# $Id: lonroles.pm,v 1.174 2006/12/14 20:49:23 albertel Exp $
+# $Id: lonroles.pm,v 1.176 2007/03/02 23:17:48 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -445,8 +445,8 @@ ENDHEADER
} else {
if ($advanced) {
$r->print(&mt("Your home server is ").
- $Apache::lonnet::hostname{&Apache::lonnet::homeserver
- ($env{'user.name'},$env{'user.domain'})}.
+ &Apache::lonnet::hostname(&Apache::lonnet::homeserver
+ ($env{'user.name'},$env{'user.domain'})).
"
\n");
$r->print(&mt(
"Author and Co-Author roles are not available on servers other than their respective home servers."));
@@ -546,7 +546,7 @@ ENDHEADER
$switchserver='otherserver='.$home.'&role='.$trolecode;
}
#next if ($home eq 'no_host');
- $home = $Apache::lonnet::hostname{$home};
+ $home = &Apache::lonnet::hostname($home);
$ttype='Construction Space';
$twhere=&mt('User').': '.$trest.'
'.&mt('Domain').
': '.$tdom.'
'.
@@ -566,7 +566,7 @@ ENDHEADER
$switchserver='otherserver='.$home.'&role='.$trolecode;
}
#next if ($home eq 'no_host');
- $home = $Apache::lonnet::hostname{$home};
+ $home = &Apache::lonnet::hostname($home);
$ttype='Construction Space';
$twhere=&mt('Domain').': '.$tdom.'
'.&mt('Server').
': '.$home;
@@ -604,7 +604,7 @@ ENDHEADER
}
}
if ($tsection) {
- $twhere.='
'.&mt('Section/Group').': '.$tsection;
+ $twhere.='
'.&mt('Section').': '.$tsection;
}
if ($role ne 'st') { $twhere.="
".&mt('Domain').":".$tdom; }
} elsif ($tdom) {
@@ -741,57 +741,7 @@ ENDHEADER
# ------------------------------------------------------------ Privileges Info
if (($advanced) && (($env{'user.error.msg'}) || ($error))) {
$r->print('