--- loncom/metadata_database/searchcat.pl	2001/04/16 12:04:41	1.2
+++ loncom/metadata_database/searchcat.pl	2001/04/16 12:07:36	1.3
@@ -8,8 +8,6 @@
 # directory and gathers metadata.
 # The metadata is entered into a SQL database.
 
-use strict;
-
 use IO::File;
 use HTML::TokeParser;
 
@@ -35,9 +33,9 @@ while ($configline=<CONFIG>) {
 }
 close(CONFIG);
 
+my $dbh;
 # ------------------------------------- Make sure that database can be accessed
 {
-    my $dbh;
     unless (
 	    $dbh = DBI->connect("DBI:mysql:loncapa","www",$perlvar{'lonSqlAccess'},{ RaiseError =>0,PrintError=>0})
 	    ) {