--- loncom/publisher/lonunauthorized.pm 2003/09/22 15:39:53 1.2 +++ loncom/publisher/lonunauthorized.pm 2005/04/07 06:56:27 1.4 @@ -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.4 2005/04/07 06:56:27 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -51,7 +51,7 @@ 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)); @@ -71,7 +71,7 @@ ENDDOCUMENT $r->print( "

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

"); - my ($realownername)=($ENV{'request.editurl'}=~/\/(?:\~|priv\/|home\/)(\w+)/); + my ($realownername)=($env{'request.editurl'}=~/\/(?:\~|priv\/|home\/)(\w+)/); my $realownerhome= &Apache::lonnet::homeserver( $realownername,$r->dir_config('lonDefDomain')); @@ -79,7 +79,7 @@ ENDDOCUMENT $r->print("

".&mt('Contact')." ". &Apache::loncommon::aboutmewrapper( &Apache::loncommon::plainname($realownername, - $r->dir_config('lonDefDomain')).'('. + $r->dir_config('lonDefDomain')).' ('. $realownername.&mt(' at '). $r->dir_config('lonDefDomain').')', $realownername,$r->dir_config('lonDefDomain')).