Changeset 23176
- Timestamp:
- 2010-10-19T15:23:38+13:00 (13 years ago)
- Location:
- main/trunk/greenstone2/perllib
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/basebuildproc.pm
r23165 r23176 420 420 $self->{'dont_process_reconstructed'}->{$doc_obj->get_OID()} = 1; 421 421 # we don't need to do anything else for the info database for a deleted document. The infodb starts from scratch each time, so no deletion is necessary 422 $self->delete_assoc_files ($archivedir); 422 423 return; 423 424 } … … 426 427 # we don't want to process the reconstructed doc later, but we will process this version now. 427 428 $self->{'dont_process_reconstructed'}->{$doc_obj->get_OID()} = 1; 429 $self->delete_assoc_files ($archivedir); 428 430 } 429 431 … … 814 816 } 815 817 818 sub delete_assoc_files 819 { 820 my $self = shift (@_); 821 my ($archivedir) = @_; 822 823 my $assoc_dir = &util::filename_cat($self->{'assocdir'}, $archivedir); 824 if (-d $assoc_dir) { 825 &util::rm_r($assoc_dir); 826 } 827 } -
main/trunk/greenstone2/perllib/lucenebuildproc.pm
r21643 r23176 569 569 } 570 570 571 sub delete_assoc_files 572 { 573 my $self = shift (@_); 574 my ($archivedir) = @_; 575 576 $self->basebuildproc::delete_assoc_files(@_); 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 } 571 582 572 583 1;
Note:
See TracChangeset
for help on using the changeset viewer.