Changeset 22327

Timestamp:

2010-06-30T12:53:11+12:00 (14 years ago)

Author:

kjdon

Message:

if a file and all its associated files is deleted from import, then each assocaited file triggers the primary to be reindexed. Need to check whether primary has also been deleted, if so, don't need to reindex

File:

• main/trunk/greenstone2/perllib/inexport.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/inexport.pm

@@ -347 +347 @@
         }
     }
+    
+    }
+    # now go through and check that we haven't marked any primary files for reindex (because their associated files have changed/deleted) when they have been deleted themselves.
+    foreach my $file (@$deleted_files) {
+    if (defined $block_hash->{'reindex_files'}->{$file}) {
+        delete $block_hash->{'reindex_files'}->{$file};
+    }
     }