version 1.20, 2001/01/15 15:59:52
|
version 1.22, 2001/02/27 20:44:18
|
Line 8
|
Line 8
|
# 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, |
# 12/08,12/28, |
# 01/15/01 Gerd Kortemeyer |
# 01/15/01 Gerd Kortemeyer |
# |
# 02/27/01 Scott Harrison |
|
|
package Apache::lonroles; |
package Apache::lonroles; |
|
|
use strict; |
use strict; |
Line 97 ENDREDIR
|
Line 98 ENDREDIR
|
<head> |
<head> |
<title>LON-CAPA User Roles</title> |
<title>LON-CAPA User Roles</title> |
</head><body bgcolor="#FFFFFF"> |
</head><body bgcolor="#FFFFFF"> |
|
<script>window.focus();</script> |
ENDHEADER |
ENDHEADER |
|
|
# ------------------------------------------ Get Error Message from Environment |
# ------------------------------------------ Get Error Message from Environment |
Line 276 ENDHEADER
|
Line 278 ENDHEADER
|
unless ($nochoose) { |
unless ($nochoose) { |
$r->print("</form>\n"); |
$r->print("</form>\n"); |
} |
} |
# ------------------------------------------------------------ Priviledges Info |
# ------------------------------------------------------------ Privileges Info |
if ($advanced) { |
if ($advanced) { |
$r->print('<hr><h2>Current Priviledges</h2>'); |
$r->print('<hr><h2>Current Privileges</h2>'); |
|
|
foreach $envkey (sort keys %ENV) { |
foreach $envkey (sort keys %ENV) { |
if ($envkey=~/^user\.priv\.$ENV{'request.role'}\./) { |
if ($envkey=~/^user\.priv\.$ENV{'request.role'}\./) { |