version 1.21, 2001/01/17 17:26:01
|
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 277 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'}\./) { |