--- loncom/metadata_database/searchcat.pl	2001/04/16 12:04:41	1.2
+++ loncom/metadata_database/searchcat.pl	2001/04/16 12:08:34	1.4
@@ -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})
 	    ) { 
@@ -73,7 +71,7 @@ foreach my $m (@metalist) {
 			  delete($ref->{'creationdate'}).','.
 			  delete($ref->{'lastrevisiondate'}).','.
 			  delete($ref->{'owner'}).','.
-			  delete($ref->{'copyright'}).
+			  delete($ref->{'copyright'})
 			  ')';
     $sth->execute();
 }