loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.28, 2001/08/06 11:16:32	version 1.30, 2001/10/31 17:47:55
Line 19 use Apache::lonuserstate();	Line 19 use Apache::lonuserstate();
use Apache::Constants qw(:common);	use Apache::Constants qw(:common);
use Apache::File();	use Apache::File();
use Apache::lonmenu;	use Apache::lonmenu;
	use Apache::loncommon;

sub handler {	sub handler {

Line 76 sub handler {	Line 77 sub handler {
'<h1><font color=red>Could not initialize top-level map.</font></h1>';	'<h1><font color=red>Could not initialize top-level map.</font></h1>';
}	}
$r->content_type('text/html');	$r->content_type('text/html');
	&Apache::loncommon::no_cache($r);
$r->send_http_header;	$r->send_http_header;
my $swinfo=&Apache::lonmenu::rawconfig;	my $swinfo=&Apache::lonmenu::rawconfig;
print (<<ENDREDIR);	print (<<ENDREDIR);
Line 104 ENDREDIR	Line 106 ENDREDIR
# =============================================================== No Roles Init	# =============================================================== No Roles Init

$r->content_type('text/html');	$r->content_type('text/html');
	&Apache::loncommon::no_cache($r);
$r->send_http_header;	$r->send_http_header;
return OK if $r->header_only;	return OK if $r->header_only;

my $swinfo=&Apache::lonmenu::rawconfig;	my $swinfo=&Apache::lonmenu::rawconfig;

$r->print(<<ENDHEADER);	$r->print(<<ENDHEADER);
<html>	<html>
<head>	<head>