--- loncom/auth/lonroles.pm 2007/03/02 23:17:48 1.176
+++ loncom/auth/lonroles.pm 2007/04/17 15:44:58 1.177
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# User Roles Screen
#
-# $Id: lonroles.pm,v 1.176 2007/03/02 23:17:48 albertel Exp $
+# $Id: lonroles.pm,v 1.177 2007/04/17 15:44:58 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -438,18 +438,18 @@ ENDHEADER
}
# -------------------------------------------------------- Choice or no choice?
if ($nochoose) {
- $r->print("
".&mt('Sorry ...')."
\n".
- &mt('This action is currently not authorized.').
+ $r->print("
".&mt('Sorry ...')."
\n".
+ &mt('This action is currently not authorized.').''.
&Apache::loncommon::end_page());
return OK;
} else {
if ($advanced) {
- $r->print(&mt("Your home server is ").
+ $r->print(''.&mt("Your home server is ").
&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."));
+ "Author and Co-Author roles are not available on servers other than their respective home servers.").'');
}
if (($ENV{'REDIRECT_QUERY_STRING'}) && ($fn)) {
$fn.='?'.$ENV{'REDIRECT_QUERY_STRING'};
@@ -461,9 +461,9 @@ ENDHEADER
}
if ($env{'user.adv'}) {
$r->print(
- ' ');
}
my (%roletext,%sortrole,%roleclass);
@@ -648,7 +648,7 @@ ENDHEADER
unless (($advanced) || ($nochoose)) {
$r->print("
');
@@ -835,7 +835,7 @@ sub role_status {
sub build_roletext {
my ($trolecode,$tdom,$trest,$tstatus,$tryagain,$advanced,$tremark,$tbg,$tfont,$trole,$twhere,$tpstart,$tpend,$nochoose,$button,$switchserver) = @_;
- my $roletext='
';
+ my $roletext='
';
my $is_dc=($trolecode =~ m/^dc\./);
my $rowspan=($is_dc) ? ''
: ' rowspan="2" ';
@@ -845,8 +845,8 @@ sub build_roletext {
$buttonname=~s/\W//g;
if (!$button) {
if ($switchserver) {
- $roletext.='