loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.65, 2000/11/16 12:00:01	version 1.66, 2000/11/20 19:04:15
Line 67	Line 67
# 10/04 Gerd Kortemeyer	# 10/04 Gerd Kortemeyer
# 10/04 Guy Albertelli	# 10/04 Guy Albertelli
# 10/06,10/09,10/10,10/11,10/14,10/20,10/23,10/25,10/26,10/27,10/28,10/29,	# 10/06,10/09,10/10,10/11,10/14,10/20,10/23,10/25,10/26,10/27,10/28,10/29,
# 10/30,10/31,11/2,11/14,11/15,11/16 Gerd Kortemeyer	# 10/30,10/31,11/2,11/14,11/15,11/16,11/20 Gerd Kortemeyer

package Apache::lonnet;	package Apache::lonnet;

Line 776 sub allowed {	Line 776 sub allowed {
}	}

# Course: uri itself is a course	# Course: uri itself is a course
	my $courseuri=$uri;
if ($ENV{'user.priv.'.$ENV{'request.role'}.'./'.$uri}	$courseuri=~s/\_(\d)/\/$1/;
	if ($ENV{'user.priv.'.$ENV{'request.role'}.'./'.$courseuri}
=~/$priv\&([^\:]*)/) {	=~/$priv\&([^\:]*)/) {
$thisallowed.=$1;	$thisallowed.=$1;
}	}