loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.341, 2003/03/18 07:26:49	version 1.342, 2003/03/19 16:50:14
Line 1874 sub eget {	Line 1874 sub eget {

sub customaccess {	sub customaccess {
my ($priv,$uri)=@_;	my ($priv,$uri)=@_;
	my ($urole,$urealm)=split(/\./,$ENV{'request.role'});
	my ($udm,$ucid,$usec)=split(/\//,$urealm);
my $access=0;	my $access=0;
foreach (split(/\s\,\s/,&metadata($uri,'rule_rights'))) {	foreach (split(/\s\,\s/,&metadata($uri,'rule_rights'))) {
my ($effect,$realm,$content)=split(/\:/,$_);	my ($effect,$realm,$role)=split(/\:/,$_);
&logthis('testing '.$effect.' '.$realm.' '.$content);	foreach my $thisrealm (split(/\s\,\s/,$realm)) {
	&logthis('testing '.$effect.' '.$thisrealm.' '.$role);
	}
}	}
return $access;	return $access;
}	}