--- loncom/publisher/lonunauthorized.pm 2003/09/22 15:39:53 1.2 +++ loncom/publisher/lonunauthorized.pm 2009/05/14 15:36:29 1.9 @@ -1,7 +1,7 @@ # The LearningOnline Network # Unauthorized to access construction space # -# $Id: lonunauthorized.pm,v 1.2 2003/09/22 15:39:53 www Exp $ +# $Id: lonunauthorized.pm,v 1.9 2009/05/14 15:36:29 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -34,6 +34,7 @@ use Apache::loncommon; use Apache::lonnet; use Apache::loncacc; use Apache::lonlocal; +use LONCAPA(); sub handler { my $r = shift; @@ -42,52 +43,53 @@ sub handler { return OK if $r->header_only; # ------------------------------------------------------------ Print the screen - $r->print(< - -The LearningOnline Network with CAPA - -ENDDOCUMENT # Figure out who the user is and what they wanted to access my ($ownername,$ownerdomain)= - &Apache::loncacc::constructaccess($ENV{'request.editurl'},$r->dir_config('lonDefDomain')); + &Apache::loncacc::constructaccess($env{'request.editurl'},$r->dir_config('lonDefDomain')); # print header - $r->print(&Apache::loncommon::bodytag - ("Failed Access to Construction Space",'','','',$ownerdomain)); + $r->print(&Apache::loncommon::start_page("Failed Access to Construction Space", + undef, + {'domain' => $ownerdomain,})); # figure out what went wrong if ($ownerdomain) { - $r->print('

'.&mt('Choose another server').'

'. -&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.') + .'

' + .'

' + .&mt('Choose 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("You do not have authoring privileges for this resource")."

"); - my ($realownername)=($ENV{'request.editurl'}=~/\/(?:\~|priv\/|home\/)(\w+)/); + $r->print('

' + .&mt('You do not have authoring privileges for this resource') + .'

'); + my ($realownername)= + ($env{'request.editurl'}=~m{/(?:~|priv/|home/)($LONCAPA::username_re)}); my $realownerhome= - &Apache::lonnet::homeserver( - $realownername,$r->dir_config('lonDefDomain')); + &Apache::lonnet::homeserver($realownername, + $r->dir_config('lonDefDomain')); unless ($realownerhome eq 'no_host') { - $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=$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) + .'

'); } } - $r->print(''); + $r->print(&Apache::loncommon::end_page()); return OK; }