loncom/publisher/lonunauthorized.pm - diff

Return to lonunauthorized.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.3, 2004/01/29 00:44:43	version 1.4, 2005/04/07 06:56:27
Line 51 ENDDOCUMENT	Line 51 ENDDOCUMENT
# Figure out who the user is and what they wanted to access	# Figure out who the user is and what they wanted to access

my ($ownername,$ownerdomain)=	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	# print header
$r->print(&Apache::loncommon::bodytag	$r->print(&Apache::loncommon::bodytag
("Failed Access to Construction Space",'','','',$ownerdomain));	("Failed Access to Construction Space",'','','',$ownerdomain));
Line 71 ENDDOCUMENT	Line 71 ENDDOCUMENT
$r->print(	$r->print(
"<h1>".	"<h1>".
&mt("You do not have authoring privileges for this resource")."</h1>");	&mt("You do not have authoring privileges for this resource")."</h1>");
my ($realownername)=($ENV{'request.editurl'}=~/\/(?:\~\|priv\/\|home\/)(\w+)/);	my ($realownername)=($env{'request.editurl'}=~/\/(?:\~\|priv\/\|home\/)(\w+)/);
my $realownerhome=	my $realownerhome=
&Apache::lonnet::homeserver(	&Apache::lonnet::homeserver(
$realownername,$r->dir_config('lonDefDomain'));	$realownername,$r->dir_config('lonDefDomain'));