Changeset 21584
- Timestamp:
- 2010-01-22T16:32:03+13:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugouts/BasePlugout.pm
r21566 r21584 741 741 $collect_dir,$oid_files); 742 742 743 # Get the infodbtype value for this collection from the arcinfo object 744 my $infodbtype = $self->{'output_info'}->{'infodbtype'}; 743 745 my $output_dir = $self->{'output_dir'}; 744 746 745 my $doc_db = &dbutil::get_infodb_file_path( "gdbm", "archiveinf-doc", $output_dir);746 my $src_db = &dbutil::get_infodb_file_path( "gdbm", "archiveinf-src", $output_dir);747 my $doc_db = &dbutil::get_infodb_file_path($infodbtype, "archiveinf-doc", $output_dir); 748 my $src_db = &dbutil::get_infodb_file_path($infodbtype, "archiveinf-src", $output_dir); 747 749 748 750 ##print STDERR "*** To set in db: \n\t$doc_db\n\t$oid\n\t$doc_db_text\n"; … … 753 755 $oid_files->{'sort-meta'} = [ $oid_files->{'sort-meta'} ]; 754 756 755 my $infodb_file_handle = &dbutil::open_infodb_write_handle( "gdbm", $doc_db, "append");756 &dbutil::write_infodb_entry( "gdbm", $infodb_file_handle, $oid, $oid_files);757 &dbutil::close_infodb_write_handle( "gdbm", $infodb_file_handle);757 my $infodb_file_handle = &dbutil::open_infodb_write_handle($infodbtype, $doc_db, "append"); 758 &dbutil::write_infodb_entry($infodbtype, $infodb_file_handle, $oid, $oid_files); 759 &dbutil::close_infodb_write_handle($infodbtype, $infodb_file_handle); 758 760 759 761 foreach my $rl (keys %$reverse_lookups) {
Note:
See TracChangeset
for help on using the changeset viewer.