--- loncom/interface/lonsearchcat.pm	2001/12/17 00:56:48	1.113
+++ loncom/interface/lonsearchcat.pm	2002/01/06 01:29:53	1.114
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Search Catalog
 #
-# $Id: lonsearchcat.pm,v 1.113 2001/12/17 00:56:48 harris41 Exp $
+# $Id: lonsearchcat.pm,v 1.114 2002/01/06 01:29:53 harris41 Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -95,7 +95,7 @@ my $advancedviewselect=<<END;
 END
 
 # ----------------------------------------------------------------------- BEGIN
-sub BEGIN {
+BEGIN {
     {
 	my $fh=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}.
 				 '/hosts.tab');