Changeset 18469 for gsdl/trunk/perllib/classify/AZList.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/classify/AZList.pm (modified) (1 diff)

gsdl/trunk/perllib/classify/AZList.pm

@@ -124 +124 @@
     my $outhandle = $self->{'outhandle'};
 
-    if ($edit_mode eq "delete") {
+    if (($edit_mode eq "delete") || ($edit_mode eq "reindex")) {
     $self->oid_hash_delete($doc_OID,'list');
-    return;
+    return if ($edit_mode eq "delete");     
     }