--- loncom/publisher/lonunauthorized.pm 2007/03/02 23:18:19 1.7 +++ loncom/publisher/lonunauthorized.pm 2008/08/11 10:18:31 1.8 @@ -1,7 +1,7 @@ # The LearningOnline Network # Unauthorized to access construction space # -# $Id: lonunauthorized.pm,v 1.7 2007/03/02 23:18:19 albertel Exp $ +# $Id: lonunauthorized.pm,v 1.8 2008/08/11 10:18:31 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -54,33 +54,35 @@ sub handler { # figure out what went wrong if ($ownerdomain) { - $r->print('
'. -&mt('The constuction space for this resource is located on another server.'). -'
'); + $r->print('' + .&mt('The construction space for this resource is located on another server.') + .'
'); my $ownerhome=&Apache::lonnet::homeserver($ownername,$ownerdomain); unless ($ownerhome eq 'no_host') { - $r->print( - "".&mt('Please log into')." ".&Apache::lonnet::hostname($ownerhome). - " ".&mt('to edit.')."
"); + $r->print('' + .&mt('Please log into [_1] to edit.' + ,''.&Apache::lonnet::hostname($ownerhome).'') + .'
'); } } else { - $r->print( - "".&mt('Contact')." ". - &Apache::loncommon::aboutmewrapper( - &Apache::loncommon::plainname($realownername, - $r->dir_config('lonDefDomain')).' ('. - $realownername.&mt(' at '). - $r->dir_config('lonDefDomain').')', - $realownername,$r->dir_config('lonDefDomain')). - ' for access.
'); + my $plainname=&Apache::loncommon::plainname($realownername,$r->dir_config('lonDefDomain')); + my $user=&mt('[_1] at [_2]',$realownername,$r->dir_config('lonDefDomain')); + my $userlink=&Apache::loncommon::aboutmewrapper( + $plainname.' ('.$user.')' + ,$realownername + ,$r->dir_config('lonDefDomain')); + $r->print('' + .&mt('Contact [_1] for access.',$userlink) + .'
'); } }