--- loncom/metadata_database/searchcat.pl	2001/04/16 12:46:37	1.8
+++ loncom/metadata_database/searchcat.pl	2001/04/16 13:16:10	1.9
@@ -18,7 +18,7 @@ require "find.pl";
 sub wanted {
     (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) &&
     -f _ &&
-    /^.*\.meta$/ &&
+    /^.*\.meta$/ && !/^.+\.\d+\.[^\.]+\.meta$/
     push(@metalist,"$dir/$_");
 }
 
@@ -56,15 +56,26 @@ foreach my $user (@homeusers) {
 }
 
 # -- process each file to get metadata and put into search catalog SQL database
+# Also, check to see if already there.
+# I could not search first and just delete, but this works for now.
 foreach my $m (@metalist) {
     my $ref=&metadata($m);
-    my $sth=$dbh->prepare('insert into metadata values ('.
+    my $m2=&declutter($m);
+    my $q2="select * from metadata where url like '$m2'";
+    my $sth = $dbh->prepare($q2);
+    $sth->execute();
+    my $r1=$sth->fetchall_arrayref;
+    if (@$r1) {
+	$sth=$dbh->prepare("delete from metadata where url like '$m2'");
+        $sth->execute();
+    }
+    $sth=$dbh->prepare('insert into metadata values ('.
 			  '"'.delete($ref->{'title'}).'"'.','.
 			  '"'.delete($ref->{'author'}).'"'.','.
 			  '"'.delete($ref->{'subject'}).'"'.','.
-			  '"'.delete($ref->{'url'}).'"'.','.
+			  '"'.$m2.'"'.','.
 			  '"'.delete($ref->{'keywords'}).'"'.','.
-			  '"'.delete($ref->{'version'}).'"'.','.
+			  '"'.'current'.'"'.','.
 			  '"'.delete($ref->{'notes'}).'"'.','.
 			  '"'.delete($ref->{'abstract'}).'"'.','.
 			  '"'.delete($ref->{'mime'}).'"'.','.