--- loncom/metadata_database/searchcat.pl	2001/04/16 20:45:42	1.14
+++ loncom/metadata_database/searchcat.pl	2001/04/17 13:36:07	1.15
@@ -2,7 +2,7 @@
 # The LearningOnline Network
 # searchcat.pl "Search Catalog" batch script
 
-# 04/14/2001 Scott Harrison
+# 04/14/2001, 04/16/2001 Scott Harrison
 
 # This script goes through a LON-CAPA resource
 # directory and gathers metadata.
@@ -34,6 +34,9 @@ while ($configline=<CONFIG>) {
 }
 close(CONFIG);
 
+# ------------------------------------- Only run if machine is a library server
+exit unless $perlvar{'lonRole'} eq 'library';
+
 my $dbh;
 # ------------------------------------- Make sure that database can be accessed
 {