Changeset 21562 for main/trunk/greenstone2/perllib/IncrementalBuildUtils.pm
- Timestamp:
- 2010-01-21T15:22:28+13:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/IncrementalBuildUtils.pm
r17283 r21562 390 390 # Now use the GDBM utils to write a blank string to this oid in the 391 391 # database 392 &GDBMUtils::gdbmCachedCollectionSet($collection, $oid, ""); 392 my $index_text_directory_path = &util::filename_cat($ENV{'GSDLHOME'}, "collect", $collection, "index", "text"); 393 my $infodb_file_path = &dbutil::get_infodb_file_path("gdbm", $collection, $index_text_directory_path); 394 my $infodb_file_handle = &dbutil::open_infodb_write_handle("gdbm", $infodb_file_path, "append"); 395 &dbutil::write_infodb_entry("gdbm", $infodb_file_handle, $oid, &dbutil::convert_infodb_string_to_hash("")); 393 396 # Remove reverse lookup 394 &GDBMUtils::gdbmCachedCollectionSet($collection, $doc_num, ""); 397 &dbutil::write_infodb_entry("gdbm", $infodb_file_handle, $doc_num, &dbutil::convert_infodb_string_to_hash("")); 398 &dbutil::close_infodb_write_handle("gdbm", $infodb_file_handle); 399 395 400 # And remove from the database 396 401 &callGS2LuceneDelete($collection, $doc_num);
Note:
See TracChangeset
for help on using the changeset viewer.