--- loncom/build/weblayer_test/test_weblayer.pl	2002/03/04 06:48:09	1.1
+++ loncom/build/weblayer_test/test_weblayer.pl	2002/05/08 18:47:31	1.2
@@ -11,7 +11,7 @@ test_weblayer.pl - Test the LON-CAPA web
 # The LearningOnline Network
 # test_weblayer.pl - Test the web layer
 #
-# $Id: test_weblayer.pl,v 1.1 2002/03/04 06:48:09 harris41 Exp $
+# $Id: test_weblayer.pl,v 1.2 2002/05/08 18:47:31 harris41 Exp $
 #
 # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
 #
@@ -63,6 +63,15 @@ while ($configline=<CONFIG>) {
     }
 }
 close(CONFIG);
+if ($perlvar{'lonRole'} ne 'library') {
+    print(<<END);
+Skipping web layer test...
+   (lonRole is defined as $perlvar{'lonRole'}
+    and the web layer test only runs on library servers.)
+END
+    exit(0);
+}
+
 my $hostid=$perlvar{'lonHostID'};
 my $domain=$perlvar{'lonDefDomain'};