Changeset 18469 for gsdl/trunk/perllib/arcinfo.pm

Timestamp:

2009-02-06T18:19:44+13:00 (15 years ago)

Author:

davidb

Message:

Support for reindexing a document added

File:

• gsdl/trunk/perllib/arcinfo.pm (modified) (1 diff)

gsdl/trunk/perllib/arcinfo.pm

@@ -251 +251 @@
     }
 
-    $self->delete_info ($OID);
+    if (defined $self->{'info'}->{$OID}) {
+    # test to see if we are in a reindex situation
+
+    my $existing_status_info = $self->get_status_info($OID);
+
+    if ($existing_status_info eq "D") {
+        # yes, we're in a reindexing situation
+        $self->delete_info ($OID);
+
+
+        # force setting to "reindex"
+        $index_status = "R";
+
+    }
+    else {
+        # some other, possibly erroneous, situation has arisen
+        # where the document already seems to exist
+        print STDERR "Warning: $OID already exists with index status $existing_status_info\n";
+        print STDERR "         Deleting previous version\n";
+
+        $self->delete_info ($OID);
+    }
+    }
+
     $self->{'info'}->{$OID} = [$doc_file,$index_status];
     push (@{$self->{'order'}}, [$OID, $sortmeta]);
+
+
 }