--- loncom/metadata_database/searchcat.pl	2001/04/16 12:04:41	1.2
+++ loncom/metadata_database/searchcat.pl	2001/04/16 12:46:37	1.8
@@ -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,21 +59,20 @@ 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->{'author'}).','.
-			  delete($ref->{'subject'}).','.
-			  delete($ref->{'url'}).','.
-			  delete($ref->{'keywords'}).','.
-			  delete($ref->{'version'}).','.
-			  delete($ref->{'notes'}).','.
-			  delete($ref->{'abstract'}).','.
-			  delete($ref->{'mime'}).','.
-			  delete($ref->{'language'}).','.
-			  delete($ref->{'creationdate'}).','.
-			  delete($ref->{'lastrevisiondate'}).','.
-			  delete($ref->{'owner'}).','.
-			  delete($ref->{'copyright'}).
-			  ')';
+			  '"'.delete($ref->{'title'}).'"'.','.
+			  '"'.delete($ref->{'author'}).'"'.','.
+			  '"'.delete($ref->{'subject'}).'"'.','.
+			  '"'.delete($ref->{'url'}).'"'.','.
+			  '"'.delete($ref->{'keywords'}).'"'.','.
+			  '"'.delete($ref->{'version'}).'"'.','.
+			  '"'.delete($ref->{'notes'}).'"'.','.
+			  '"'.delete($ref->{'abstract'}).'"'.','.
+			  '"'.delete($ref->{'mime'}).'"'.','.
+			  '"'.delete($ref->{'language'}).'"'.','.
+			  '"'.delete($ref->{'creationdate'}).'"'.','.
+			  '"'.delete($ref->{'lastrevisiondate'}).'"'.','.
+			  '"'.delete($ref->{'owner'}).'"'.','.
+			  '"'.delete($ref->{'copyright'}).'"'.')');
     $sth->execute();
 }