loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.186, 2008/03/12 02:47:34	version 1.187, 2008/03/17 14:38:30
Line 447 ENDHEADER	Line 447 ENDHEADER
# -------------------------------------------------------- Generate Page Output	# -------------------------------------------------------- Generate Page Output
# --------------------------------------------------------------- Error Header?	# --------------------------------------------------------------- Error Header?
if ($error) {	if ($error) {
$r->print("<h1>LON-CAPA Access Control</h1>");	$r->print("<h1>".&mt('LON-CAPA Access Control')."</h1>");
$r->print("<!-- LONCAPAACCESSCONTROLERRORSCREEN --><hr /><pre>");	$r->print("<!-- LONCAPAACCESSCONTROLERRORSCREEN --><hr /><pre>");
if ($priv ne '') {	if ($priv ne '') {
$r->print("Access : ".&Apache::lonnet::plaintext($priv)."\n");	$r->print(&mt('Access : ').&Apache::lonnet::plaintext($priv)."\n");
}	}
if ($fn ne '') {	if ($fn ne '') {
$r->print("Resource: ".&Apache::lonenc::check_encrypt($fn)."\n");	$r->print(&mt('Resource: ').&Apache::lonenc::check_encrypt($fn)."\n");
}	}
if ($msg ne '') {	if ($msg ne '') {
$r->print("Action : $msg\n");	$r->print(&mt('Action : ').$msg."\n");
}	}
$r->print("</pre><hr />");	$r->print("</pre><hr />");
my $url=$fn;	my $url=$fn;