loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

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'}\./) {