loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

Diff for /loncom/auth/lonroles.pm between versions 1.29 and 1.30

version 1.29, 2001/10/26 17:09:04	version 1.30, 2001/10/31 17:47:55
Line 77 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;
my $cacheheader=&Apache::loncommon::cacheheader();
print (<<ENDREDIR);	print (<<ENDREDIR);
<head><title>Entering Course</title>	<head><title>Entering Course</title>
<meta HTTP-EQUIV="Refresh" CONTENT="1; url=$furl">	<meta HTTP-EQUIV="Refresh" CONTENT="1; url=$furl">
$cacheheader
</head>	</head>
<html>	<html>
<body bgcolor="#FFFFFF">	<body bgcolor="#FFFFFF">
Line 107 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;
my $cacheheader=&Apache::loncommon::cacheheader();
$r->print(<<ENDHEADER);	$r->print(<<ENDHEADER);
<html>	<html>
<head>	<head>
$cacheheader
<title>LON-CAPA User Roles</title>	<title>LON-CAPA User Roles</title>
</head><body bgcolor="#FFFFFF">	</head><body bgcolor="#FFFFFF">
<script>	<script>

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.29
changed lines
	Added in v.1.30