--- loncom/metadata_database/searchcat.pl	2001/04/16 12:08:34	1.4
+++ loncom/metadata_database/searchcat.pl	2001/04/16 12:26:36	1.7
@@ -10,6 +10,7 @@
 
 use IO::File;
 use HTML::TokeParser;
+use DBI;
 
 my @metalist;
 # ----------------- Code to enable 'find' subroutine listing of the .meta files
@@ -58,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'}).','.
@@ -71,8 +72,7 @@ foreach my $m (@metalist) {
 			  delete($ref->{'creationdate'}).','.
 			  delete($ref->{'lastrevisiondate'}).','.
 			  delete($ref->{'owner'}).','.
-			  delete($ref->{'copyright'})
-			  ')';
+			  delete($ref->{'copyright'}));
     $sth->execute();
 }