Changeset 23176 for main/trunk/greenstone2/perllib/lucenebuildproc.pm

Timestamp:

2010-10-19T15:23:38+13:00 (14 years ago)

Author:

kjdon

Message:

added delete_assoc_files. If we are asked to process a deleted or updated document, then delete the old assoc files - index/assoc/archivedir, and index/text/archivedir for lucene

File:

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

main/trunk/greenstone2/perllib/lucenebuildproc.pm

@@ -569 +569 @@
 }
 
+sub delete_assoc_files 
+{
+    my $self = shift (@_);
+    my ($archivedir) = @_;
+
+    $self->basebuildproc::delete_assoc_files(@_);
+    
+    my $assoc_dir = &util::filename_cat($self->{'build_dir'},"text", $archivedir);
+    if (-d $assoc_dir) {
+    &util::rm_r($assoc_dir);
+    } 
 
 1;