loncom/publisher/lonunauthorized.pm - diff

Return to lonunauthorized.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.4, 2005/04/07 06:56:27	version 1.5, 2006/04/06 22:15:19
Line 42 sub handler {	Line 42 sub handler {
return OK if $r->header_only;	return OK if $r->header_only;

# ------------------------------------------------------------ Print the screen	# ------------------------------------------------------------ Print the screen
$r->print(<<ENDDOCUMENT);
<html>
<head>
<title>The LearningOnline Network with CAPA</title>
</head>
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::start_page("Failed Access to Construction Space",
("Failed Access to Construction Space",'','','',$ownerdomain));	undef,
	{'domain' => $ownerdomain,}));
# figure out what went wrong	# figure out what went wrong

if ($ownerdomain) {	if ($ownerdomain) {
Line 87 ENDDOCUMENT	Line 82 ENDDOCUMENT
}	}
}	}

$r->print('</body></html>');	$r->print(&Apache::loncommon::end_page());
return OK;	return OK;
}	}