Changeset 21414

Show
Ignore:
Timestamp:
04.01.2010 23:13:05 (9 years ago)
Author:
davidb
Message:

Separation of different database back-ends into individual files

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/plugouts/BasePlugout.pm

    r20902 r21414  
    3737use GDBMUtils; 
    3838 
     39use dbutil::gdbm; 
    3940 
    4041# suppress the annoying "subroutine redefined" warning that various 
     
    762763 
    763764    my $infodb_file_handle  
    764     = &dbutil::open_infodb_write_handle_gdbm($doc_db,"append"); 
    765     &dbutil::write_infodb_entry_gdbm($infodb_file_handle,$oid,$oid_files); 
    766     &dbutil::close_infodb_write_handle_gdbm($infodb_file_handle); 
     765    = &dbutil::gdbm::open_infodb_write_handle($doc_db,"append"); 
     766    &dbutil::gdbm::write_infodb_entry($infodb_file_handle,$oid,$oid_files); 
     767    &dbutil::gdbm::close_infodb_write_handle($infodb_file_handle); 
    767768 
    768769