--- loncom/lonnet/perl/lonnet.pm	2003/08/14 22:23:53	1.401
+++ loncom/lonnet/perl/lonnet.pm	2003/08/14 22:26:40	1.402
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.401 2003/08/14 22:23:53 bowersj2 Exp $
+# $Id: lonnet.pm,v 1.402 2003/08/14 22:26:40 bowersj2 Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2256,6 +2256,9 @@ sub customaccess {
             $access=($effect eq 'allow');
             last;
         }
+	if ($realm eq '' && $role eq '') {
+            $access=($effect eq 'allow');
+	}
     }
     return $access;
 }