- Timestamp:
- 2010-01-21T14:26:37+13:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/cgiactions/metadataaction.pm
r21551 r21554 182 182 my $gdbm_db = &util::filename_cat($gdbm_directory,"$collect_tail.gdb"); 183 183 184 my $doc_rec = GDBMUtils::gdbmRecordToHash($gdbm_db,$docid); 184 my $doc_rec_string = &dbutil::read_infodb_entry("gdbm", $gdbm_db, $docid); 185 my $doc_rec = &dbutil::convert_infodb_string_to_hash($doc_rec_string); 185 186 foreach my $k (keys %$doc_rec) { 186 187 my @escaped_v = (); … … 298 299 my $gdbm_db = &util::filename_cat($gdbm_directory,"$collect_tail.gdb"); 299 300 300 my $doc_rec = GDBMUtils::gdbmRecordToHash($gdbm_db,$docid); 301 my $doc_rec_string = &dbutil::read_infodb_entry("gdbm", $gdbm_db, $docid); 302 my $doc_rec = &dbutil::convert_infodb_string_to_hash($doc_rec_string); 301 303 foreach my $k (keys %$doc_rec) { 302 304 my @escaped_v = (); … … 516 518 my $arcinfo_doc_filename = &util::filename_cat ($archive_dir, $doc_db); 517 519 518 my $doc_rec = GDBMUtils::gdbmRecordToHash($arcinfo_doc_filename,$docid); 520 my $doc_rec_string = &dbutil::read_infodb_entry("gdbm", $arcinfo_doc_filename, $docid); 521 my $doc_rec = &dbutil::convert_infodb_string_to_hash($doc_rec_string); 519 522 520 523 my $doc_xml_file = $doc_rec->{'doc-file'}->[0]; … … 694 697 my $arcinfo_doc_filename = &util::filename_cat ($archive_dir, $doc_db); 695 698 696 my $doc_rec = GDBMUtils::gdbmRecordToHash($arcinfo_doc_filename,$docid); 699 my $doc_rec_string = &dbutil::read_infodb_entry("gdbm", $arcinfo_doc_filename, $docid); 700 my $doc_rec = &dbutil::convert_infodb_string_to_hash($doc_rec_string); 697 701 698 702 # This now stores the full pathname … … 810 814 my $gdbm_db = &util::filename_cat($gdbm_directory,"$collect_tail.gdb"); 811 815 812 my $doc_rec = GDBMUtils::gdbmRecordToHash($gdbm_db,$docid); 816 my $doc_rec_string = &dbutil::read_infodb_entry("gdbm", $gdbm_db, $docid); 817 my $doc_rec = &dbutil::convert_infodb_string_to_hash($doc_rec_string); 813 818 foreach my $k (keys %$doc_rec) { 814 819 my @escaped_v = ();
Note:
See TracChangeset
for help on using the changeset viewer.