--- 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("

".&mt('Select a Course to Enter')."

\n"); } - $r->print('
'); + $r->print('
'); unless ($nochoose) { $r->print(''); } $r->print(''."\n"); @@ -730,8 +730,8 @@ ENDHEADER $r->print(''); } } - $r->print(''."\n"); $r->print('
 '.&mt('User Role').''.&mt('Extent'). ''.&mt('Start').''.&mt('End').'
 '.&mt('No role specified'). - ''.$tremark. + $r->print(''.&mt('No role specified'). + ''.$tremark. ' 
'); @@ -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.=''.&mt('Switch Server').''; + $roletext.=''.&mt('Switch Server').''; } else { $roletext.=(' '); } @@ -878,8 +878,8 @@ sub build_roletext { ''.$tpend. ''; if (!$is_dc) { - $roletext.=''.$tremark. - ' '."\n"; + $roletext.=''.$tremark. + ' '."\n"; } return $roletext; } @@ -1032,10 +1032,9 @@ sub allcourses_row { ' '; my $selectlink = &courselink($dcdom,$rowtype); my $ccrole = &Apache::lonnet::plaintext('cc'); - $output.= ''.$ccrole.''. - ' '.$selectlink.''. - ' from '.&mt('Domain').' '.$dcdom.'
'; - $output .= ''."\n"; + $output.= ''. + &mt('[_1]: [_2] from domain [_3]',$ccrole,$selectlink,$dcdom). + '
'."\n"; return $output; }