--- loncom/metadata_database/searchcat.pl	2001/04/16 12:07:36	1.3
+++ loncom/metadata_database/searchcat.pl	2001/04/16 12:24:05	1.6
@@ -10,6 +10,7 @@
 
 use IO::File;
 use HTML::TokeParser;
+use DBI;
 
 my @metalist;
 # ----------------- Code to enable 'find' subroutine listing of the .meta files
@@ -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();
 }