loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.193, 2001/12/22 21:46:02	version 1.194, 2001/12/27 17:00:30
Line 64	Line 64
# 12/5 Guy Albertelli	# 12/5 Guy Albertelli
# 12/6,12/7,12/12 Gerd Kortemeyer	# 12/6,12/7,12/12 Gerd Kortemeyer
# 12/18 Scott Harrison	# 12/18 Scott Harrison
# 12/21,12/22 Gerd Kortemeyer	# 12/21,12/22,12/27 Gerd Kortemeyer
#	#
###	###

Line 1554 sub allowed {	Line 1554 sub allowed {
if ($thisallowed=~/C/) {	if ($thisallowed=~/C/) {
my $rolecode=(split(/\./,$ENV{'request.role'}))[0];	my $rolecode=(split(/\./,$ENV{'request.role'}))[0];
if ($ENV{'course.'.$ENV{'request.course.id'}.'.'.$priv.'.roles.denied'}	if ($ENV{'course.'.$ENV{'request.course.id'}.'.'.$priv.'.roles.denied'}
=~/\,$rolecode\,/) {	=~/$rolecode/) {
&log($ENV{'user.domain'},$ENV{'user.name'},$ENV{'user.host'},	&log($ENV{'user.domain'},$ENV{'user.name'},$ENV{'user.host'},
'Denied by role: '.$priv.' for '.$uri.' as '.$rolecode.' in '.	'Denied by role: '.$priv.' for '.$uri.' as '.$rolecode.' in '.
$ENV{'request.course.id'});	$ENV{'request.course.id'});