Changeset 22567 for main/trunk
- Timestamp:
- 2010-08-04T15:56:11+12:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/inexport.pm
r22535 r22567 142 142 my $site = $self->{'site'}; 143 143 my $out = $self->{'out'}; 144 144 145 145 if (($collection = &colcfg::use_collection($site, $collection, $collectdir)) eq "") { 146 146 &PrintUsage::print_txt_usage($options, "{import.params}"); … … 1108 1108 1109 1109 } 1110 # 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. 1111 foreach my $file (@$deleted_files) { 1112 if (defined $block_hash->{'reindex_files'}->{$file}) { 1113 delete $block_hash->{'reindex_files'}->{$file}; 1110 # 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. 1111 if ($mode eq "delete") { 1112 foreach my $file (@$deleted_files) { 1113 if (defined $block_hash->{'reindex_files'}->{$file}) { 1114 delete $block_hash->{'reindex_files'}->{$file}; 1115 } 1114 1116 } 1115 1117 }
Note:
See TracChangeset
for help on using the changeset viewer.