--- loncom/lonnet/perl/lonnet.pm	2003/03/18 07:26:49	1.341
+++ loncom/lonnet/perl/lonnet.pm	2003/03/19 16:50:14	1.342
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.341 2003/03/18 07:26:49 www Exp $
+# $Id: lonnet.pm,v 1.342 2003/03/19 16:50:14 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1874,10 +1874,14 @@ sub eget {
 
 sub customaccess {
     my ($priv,$uri)=@_;
+    my ($urole,$urealm)=split(/\./,$ENV{'request.role'});
+    my ($udm,$ucid,$usec)=split(/\//,$urealm);
     my $access=0;
     foreach (split(/\s*\,\s*/,&metadata($uri,'rule_rights'))) {
-	my ($effect,$realm,$content)=split(/\:/,$_);
-        &logthis('testing '.$effect.' '.$realm.' '.$content);
+	my ($effect,$realm,$role)=split(/\:/,$_);
+        foreach my $thisrealm (split(/\s*\,\s*/,$realm)) {
+            &logthis('testing '.$effect.' '.$thisrealm.' '.$role);
+        }
     }
     return $access;
 }