Changeset 21619

Show
Ignore:
Timestamp:
25.01.2010 17:17:12 (9 years ago)
Author:
mdewsnip
Message:

Removed src_db_file() and doc_db_file() functions from inexport.pm. Part of making the code less GDBM-specific.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/inexport.pm

    r21566 r21619  
    3333use util; 
    3434 
    35  
    36 sub src_db_file { 
    37     my ($archivedir) = @_; 
    38     return &dbutil::get_infodb_file_path("gdbm", "archiveinf-src", $archivedir); 
    39 } 
    40  
    41 sub doc_db_file { 
    42     my ($archivedir) = @_; 
    43     return &dbutil::get_infodb_file_path("gdbm", "archiveinf-doc", $archivedir); 
    44 } 
    4535 
    4636sub oid_count_file { 
     
    9888 
    9989    # in this method, we want to know if metadata files are modified or not. 
    100     my $arcinfo_doc_filename = &doc_db_file($archivedir); 
     90    my $arcinfo_doc_filename = &dbutil::get_infodb_file_path("gdbm", "archiveinf-doc", $archivedir); 
    10191 
    10292    my $archiveinf_timestamp = -M $arcinfo_doc_filename; 
     
    296286    $mode_text = "reindexed"; 
    297287    } 
    298     my $arcinfo_doc_filename = &doc_db_file($archivedir); 
    299     my $arcinfo_src_filename = &src_db_file($archivedir); 
     288    my $arcinfo_doc_filename = &dbutil::get_infodb_file_path("gdbm", "archiveinf-doc", $archivedir); 
     289    my $arcinfo_src_filename = &dbutil::get_infodb_file_path("gdbm", "archiveinf-src", $archivedir); 
    300290    my $doc_infodb_file_handle = &dbutil::open_infodb_write_handle("gdbm", $arcinfo_doc_filename, "append"); 
    301291    my $src_infodb_file_handle = &dbutil::open_infodb_write_handle("gdbm", $arcinfo_src_filename, "append");