loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.81, 2000/12/14 21:44:06	version 1.82, 2000/12/28 19:57:30
Line 81	Line 81
# 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,	# 10/30,10/31,
# 11/2,11/14,11/15,11/16,11/20,11/21,11/22,11/25,11/27,	# 11/2,11/14,11/15,11/16,11/20,11/21,11/22,11/25,11/27,
# 12/02,12/12,12/13,12/14 Gerd Kortemeyer	# 12/02,12/12,12/13,12/14,12/28 Gerd Kortemeyer

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

Line 1170 sub assignrole {	Line 1170 sub assignrole {
unless (&allowed('ccr',$url)) { return 'refused'; }	unless (&allowed('ccr',$url)) { return 'refused'; }
$mrole='cr';	$mrole='cr';
} else {	} else {
unless (&allowed('c'.$role,$url)) { return 'refused'; }	my $cwosec=$url;
	$cwosec=~s/^(\w+)\/(\w+)\/.*/$1\/$2/;
	unless (&allowed('c'.$role,$cwosec)) { return 'refused'; }
$mrole=$role;	$mrole=$role;
}	}
my $command="encrypt:rolesput:$ENV{'user.domain'}:$ENV{'user.name'}:".	my $command="encrypt:rolesput:$ENV{'user.domain'}:$ENV{'user.name'}:".