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.29, 2001/10/26 17:09:04
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 78 sub handler {	Line 79 sub handler {
$r->content_type('text/html');	$r->content_type('text/html');
$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 108 ENDREDIR	Line 111 ENDREDIR
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>