loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.14, 2000/10/26 20:10:47	version 1.15, 2000/10/26 21:43:18
Line 265 ENDHEADER	Line 265 ENDHEADER
}	}
# ------------------------------------------------------------ Priviledges Info	# ------------------------------------------------------------ Priviledges Info
if ($advanced) {	if ($advanced) {
$r->print('<hr><h2>Priviledges</h2>');	$r->print('<hr><h2>Current Priviledges</h2>');

foreach $envkey (sort keys %ENV) {	foreach $envkey (sort keys %ENV) {
if ($envkey=~/^user\.priv\./) {	if ($envkey=~/^user\.priv\.$ENV{'request.role'}\./) {
my ($dum1,$dum2,@pwhere)=split(/\./,$envkey);	my $where=$envkey;
my $where=join('.',@pwhere);	$where=~s/^user\.priv\.$ENV{'request.role'}\.//;
my $ttype;	my $ttype;
my $twhere;	my $twhere;
my ($tdom,$trest)=	my ($tdom,$trest,$tsec)=
split(/\//,Apache::lonnet::declutter($where));	split(/\//,Apache::lonnet::declutter($where));
if ($trest) {	if ($trest) {
$ttype='Course';	$ttype='Course';
$twhere=$cdes{$tdom.'/'.$trest};	$twhere=$cdes{$tdom.'/'.$trest};
	if ($tsec) {
	$twhere.=' (Section/Group: '.$tsec.')';
	}
} elsif ($tdom) {	} elsif ($tdom) {
$ttype='Domain';	$ttype='Domain';
$twhere=$tdom;	$twhere=$tdom;