Changeset 21565

Show
Ignore:
Timestamp:
21.01.2010 16:07:19 (9 years ago)
Author:
mdewsnip
Message:

Changed dbutil::gdbm::X() calls to dbutil::X("gdbm"), in preparation for making it possible to use something other than GDBM. Part of making the code less GDBM-specific.

Files:
1 modified

Legend:

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

    r21564 r21565  
    3232no strict 'refs'; 
    3333 
     34use dbutil; 
    3435use gsprintf 'gsprintf'; 
    3536use printusage; 
    3637use parse2; 
    3738 
    38 use dbutil::gdbm; 
    3939 
    4040# suppress the annoying "subroutine redefined" warning that various 
     
    753753    $oid_files->{'sort-meta'} = [ $oid_files->{'sort-meta'} ]; 
    754754 
    755     my $infodb_file_handle  
    756     = &dbutil::gdbm::open_infodb_write_handle($doc_db,"append"); 
    757     &dbutil::gdbm::write_infodb_entry($infodb_file_handle,$oid,$oid_files); 
    758     &dbutil::gdbm::close_infodb_write_handle($infodb_file_handle); 
    759  
    760  
     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); 
    761758 
    762759    foreach my $rl (keys %$reverse_lookups) {