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