Changeset 22010
- Timestamp:
- 2010-05-03T12:06:46+12:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/inexport.pm
r21620 r22010 295 295 my $arcinfo_doc_filename = &dbutil::get_infodb_file_path($infodbtype, "archiveinf-doc", $archivedir); 296 296 my $arcinfo_src_filename = &dbutil::get_infodb_file_path($infodbtype, "archiveinf-src", $archivedir); 297 my $doc_infodb_file_handle = &dbutil::open_infodb_write_handle($infodbtype, $arcinfo_doc_filename, "append"); 298 my $src_infodb_file_handle = &dbutil::open_infodb_write_handle($infodbtype, $arcinfo_src_filename, "append"); 297 299 298 300 299 # record files marked for deletion in arcinfo … … 309 308 310 309 # delete the src record 310 my $src_infodb_file_handle = &dbutil::open_infodb_write_handle($infodbtype, $arcinfo_src_filename, "append"); 311 311 &dbutil::delete_infodb_entry($infodbtype, $src_infodb_file_handle, $file); 312 312 &dbutil::close_infodb_write_handle($infodbtype, $src_infodb_file_handle); 313 314 313 315 foreach my $oid (@$oids) { 314 316 … … 339 341 340 342 my $val_rec = &dbutil::convert_infodb_string_to_hash($val); 343 my $doc_infodb_file_handle = &dbutil::open_infodb_write_handle($infodbtype, $arcinfo_doc_filename, "append"); 344 341 345 &dbutil::write_infodb_entry($infodbtype, $doc_infodb_file_handle, $oid, $val_rec); 342 }343 }344 345 346 &dbutil::close_infodb_write_handle($infodbtype, $doc_infodb_file_handle); 347 &dbutil::close_infodb_write_handle($infodbtype, $src_infodb_file_handle); 346 &dbutil::close_infodb_write_handle($infodbtype, $doc_infodb_file_handle); 347 } 348 } 349 } 350 351 348 352 } 349 353
Note:
See TracChangeset
for help on using the changeset viewer.