Changeset 24344
- Timestamp:
- 2011-07-29T13:09:22+12:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/inexport.pm
r23946 r24344 402 402 print STDERR "<export>\n" if $gli; 403 403 } 404 404 405 405 my $manifest_lookup = new manifest($collectcfg->{'infodbtype'},$archivedir); 406 406 if ($self->{'manifest'} ne "") { … … 439 439 } 440 440 441 # remove the old contents of the archives directory (and tmp directory) if needed 441 # remove the old contents of the archives directory (and tmp 442 # directory) if needed 443 442 444 if ($removeold) { 443 445 if (-e $archivedir) { … … 542 544 543 545 if ($removeold) { 544 # occasionally, plugins may want to do something on remove old, eg pharos image indexing 546 # occasionally, plugins may want to do something on remove 547 # old, eg pharos image indexing 545 548 &plugin::remove_all($pluginfo, $importdir, $processor, $maxdocs, $gli); 546 549 } … … 1186 1189 1187 1190 } 1188 # 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. only in delete mode. 1191 1192 # now go through and check that we haven't marked any primary 1193 # files for reindex (because their associated files have 1194 # changed/deleted) when they have been deleted themselves. only in 1195 # delete mode. 1196 1189 1197 if ($mode eq "delete") { 1190 1198 foreach my $file (@$deleted_files) {
Note:
See TracChangeset
for help on using the changeset viewer.