Changeset 18554
- Timestamp:
- 2009-02-20T11:03:09+13:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/inexport.pm
r18528 r18554 176 176 } 177 177 178 sub mark_docs_for_deletion 179 { 180 my ($archive_info,$deleted_files_ref,$archivedir,$verbosity) = @_; 178 179 sub _mark_docs_for_deletion 180 { 181 my ($archive_info,$deleted_files_ref,$archivedir,$verbosity,$mode_text) = @_; 181 182 182 183 my $db_ext = &util::is_little_endian() ? ".ldb" : ".bdb"; … … 204 205 205 206 if ($verbosity>1) { 206 print STDERR "$oid ($file) marked to be deleted from indexon next buildcol.pl\n";207 print STDERR "$oid ($file) marked to be $mode_text on next buildcol.pl\n"; 207 208 } 208 209 $archive_info->set_status_info($oid,"D"); … … 238 239 } 239 240 241 242 sub mark_docs_for_deletion 243 { 244 _mark_docs_for_deletion(@_,"deleted from index"); 245 } 240 246 241 247 … … 276 282 $existing_file =~ s/^$collectdir(\\|\/)?//; 277 283 278 print STDERR "**** Deleting existing file: $existing_file\n";284 ### print STDERR "**** Deleting existing file: $existing_file\n"; 279 285 280 286 push(@$reindex_files_ref,$existing_file); … … 283 289 } 284 290 285 mark_docs_for_deletion($archive_info,$reindex_files_ref,$archivedir,$verbosity);291 _mark_docs_for_deletion($archive_info,$reindex_files_ref,$archivedir,$verbosity, "reindex"); 286 292 287 293 return @$reindex_files_ref;
Note:
See TracChangeset
for help on using the changeset viewer.