version 1.8, 2000/09/30 19:19:34
|
version 1.9, 2000/10/02 21:34:58
|
Line 5
|
Line 5
|
# 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14 Gerd Kortemeyer) |
# 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14 Gerd Kortemeyer) |
# 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 Gerd Kortemeyer |
# 09/04,09/06,09/28,09/29,09/30,10/2 Gerd Kortemeyer |
# |
# |
package Apache::lonroles; |
package Apache::lonroles; |
|
|
Line 26 sub handler {
|
Line 26 sub handler {
|
<html> |
<html> |
<head> |
<head> |
<title>LON-CAPA User Roles</title> |
<title>LON-CAPA User Roles</title> |
</head> |
|
<body bgcolor="#FFFFFF"> |
|
ENDHEADER |
ENDHEADER |
|
if ($ENV{'form.orgurl'}) { |
|
$r->print('<meta HTTP-EQUIV="Refresh" CONTENT="1; url='. |
|
$ENV{'form.orgurl'}.'">'); |
|
} |
|
$r->print('</head><body bgcolor="#FFFFFF">'); |
|
|
my $now=time; |
my $now=time; |
my $then=$ENV{'user.login.time'}; |
my $then=$ENV{'user.login.time'}; |
Line 58 ENDHEADER
|
Line 61 ENDHEADER
|
&Apache::lonnet::appenv('request.role' => $trolecode); |
&Apache::lonnet::appenv('request.role' => $trolecode); |
my ($cdom,$cnum)=split(/\//,$where); |
my ($cdom,$cnum)=split(/\//,$where); |
if ($cnum) { |
if ($cnum) { |
$r->print( &Apache::lonuserstate::readmap($where) ); |
&Apache::lonuserstate::readmap($where); |
|
$r->print('<h1>Role initialized</h1></body></html>'); |
|
return OK; |
} |
} |
} |
} |
} |
} |