--- loncom/lonnet/perl/lonnet.pm	2002/08/05 21:02:07	1.261
+++ loncom/lonnet/perl/lonnet.pm	2002/08/07 20:40:57	1.262
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.261 2002/08/05 21:02:07 albertel Exp $
+# $Id: lonnet.pm,v 1.262 2002/08/07 20:40:57 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1580,6 +1580,10 @@ sub allowed {
 		return '';
             }
         }
+        if ($ENV{'request.role'}=~ /li\.\//) {
+            # Library role, so allow browsing of resources in this domain.
+            return 'F';
+        }
     }
 
     my $thisallowed='';