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> |