--- loncom/metadata_database/searchcat.pl	2001/04/16 12:04:41	1.2
+++ loncom/metadata_database/searchcat.pl	2001/04/16 12:26:36	1.7
@@ -8,10 +8,9 @@
 # directory and gathers metadata.
 # The metadata is entered into a SQL database.
 
-use strict;
-
 use IO::File;
 use HTML::TokeParser;
+use DBI;
 
 my @metalist;
 # ----------------- Code to enable 'find' subroutine listing of the .meta files
@@ -35,9 +34,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})
 	    ) { 
@@ -60,7 +59,7 @@ foreach my $user (@homeusers) {
 foreach my $m (@metalist) {
     my $ref=&metadata($m);
     my $sth=$dbh->prepare('insert into metadata values ('.
-			  delete($ref->{'title'}),
+			  delete($ref->{'title'}).','.
 			  delete($ref->{'author'}).','.
 			  delete($ref->{'subject'}).','.
 			  delete($ref->{'url'}).','.
@@ -73,8 +72,7 @@ foreach my $m (@metalist) {
 			  delete($ref->{'creationdate'}).','.
 			  delete($ref->{'lastrevisiondate'}).','.
 			  delete($ref->{'owner'}).','.
-			  delete($ref->{'copyright'}).
-			  ')';
+			  delete($ref->{'copyright'}));
     $sth->execute();
 }