Changeset 21554 for main/trunk/greenstone2/perllib/inexport.pm
- Timestamp:
- 2010-01-21T14:26:37+13:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/inexport.pm
r21553 r21554 305 305 # that this file is used in (note in most cases, it's just one OID) 306 306 307 my $src_rec = GDBMUtils::gdbmRecordToHash($arcinfo_src_filename,$file); 307 my $src_rec_string = &dbutil::read_infodb_entry("gdbm", $arcinfo_src_filename, $file); 308 my $src_rec = &dbutil::convert_infodb_string_to_hash($src_rec_string); 308 309 my $oids = $src_rec->{'oid'}; 309 310 my $file_record_deleted = 0; … … 315 316 316 317 # find the source doc (the primary file that becomes this oid) 317 my $doc_rec = GDBMUtils::gdbmRecordToHash($arcinfo_doc_filename,$oid); 318 my $doc_rec_string = &dbutil::read_infodb_entry("gdbm", $arcinfo_doc_filename, $oid); 319 my $doc_rec = &dbutil::convert_infodb_string_to_hash($doc_rec_string); 318 320 my $doc_source_file = $doc_rec->{'src-file'}->[0]; 319 321 if (!&util::filename_is_absolute($doc_source_file)) {
Note:
See TracChangeset
for help on using the changeset viewer.