Changeset 23182 for main/trunk/greenstone2/perllib/lucenebuildproc.pm
- Timestamp:
- 2010-10-20T13:12:24+13:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/lucenebuildproc.pm
r23181 r23182 572 572 { 573 573 my $self = shift (@_); 574 my ($archivedir ) = @_;574 my ($archivedir, $edit_mode) = @_; 575 575 576 576 $self->basebuildproc::delete_assoc_files(@_); 577 577 578 my $assoc_dir = &util::filename_cat($self->{'build_dir'},"text", $archivedir); 579 if (-d $assoc_dir) { 580 &util::rm_r($assoc_dir); 581 } 578 if ($edit_mode eq "delete") { 579 # if we are deleting the doc, then also delete the lucene text version 580 my $assoc_dir = &util::filename_cat($self->{'build_dir'},"text", $archivedir); 581 if (-d $assoc_dir) { 582 &util::rm_r($assoc_dir); 583 } 584 } 582 585 } 583 586
Note:
See TracChangeset
for help on using the changeset viewer.