version 1.19, 2000/12/28 21:46:08
|
version 1.20, 2001/01/15 15:59:52
|
Line 6
|
Line 6
|
# 11/23 Gerd Kortemeyer) |
# 11/23 Gerd Kortemeyer) |
# 1/14,03/06,06/01,07/22,07/24,07/25, |
# 1/14,03/06,06/01,07/22,07/24,07/25, |
# 09/04,09/06,09/28,09/29,09/30,10/2,10/5,10/26,10/28, |
# 09/04,09/06,09/28,09/29,09/30,10/2,10/5,10/26,10/28, |
# 12/08,12/28 Gerd Kortemeyer |
# 12/08,12/28, |
|
# 01/15/01 Gerd Kortemeyer |
# |
# |
package Apache::lonroles; |
package Apache::lonroles; |
|
|
Line 58 sub handler {
|
Line 59 sub handler {
|
if ($cnum) { |
if ($cnum) { |
my ($furl,$ferr)= |
my ($furl,$ferr)= |
&Apache::lonuserstate::readmap($cdom.'/'.$cnum); |
&Apache::lonuserstate::readmap($cdom.'/'.$cnum); |
if ($ENV{'form.orgurl'}) { |
if (($ENV{'form.orgurl'}) && |
|
($ENV{'form.orgurl'}!~/^\/adm\/flip/)) { |
$r->internal_redirect($ENV{'form.orgurl'}); |
$r->internal_redirect($ENV{'form.orgurl'}); |
return OK; |
return OK; |
} else { |
} else { |
$r->internal_redirect($furl); |
$r->content_type('text/html'); |
return OK; |
$r->send_http_header; |
|
print (<<ENDREDIR); |
|
<head><title>Entering Course</title> |
|
<meta HTTP-EQUIV="Refresh" CONTENT="1; url=$furl"> |
|
</head> |
|
<html> |
|
<body bgcolor="#FFFFFF"> |
|
Entering course ... |
|
</body> |
|
</html> |
|
ENDREDIR |
|
return OK; |
} |
} |
} |
} |
} |
} |
} |
} |
} |
} |
} |
} |
} |
} |
|
|
|
|
# =============================================================== No Roles Init |
# =============================================================== No Roles Init |