Changeset 21619 for main/trunk/greenstone2/perllib/inexport.pm

Timestamp:

2010-01-25T17:17:12+13:00 (14 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.

File:

• main/trunk/greenstone2/perllib/inexport.pm (modified) (3 diffs)

main/trunk/greenstone2/perllib/inexport.pm

@@ -33 +33 @@
 use util;
 
-
-sub src_db_file {
-    my ($archivedir) = @_;
-    return &dbutil::get_infodb_file_path("gdbm", "archiveinf-src", $archivedir);
-}
-
-sub doc_db_file {
-    my ($archivedir) = @_;
-    return &dbutil::get_infodb_file_path("gdbm", "archiveinf-doc", $archivedir);
-}
 
 sub oid_count_file {
@@ -98 +88 @@
 
     # in this method, we want to know if metadata files are modified or not.
-    my $arcinfo_doc_filename = &doc_db_file($archivedir);
+    my $arcinfo_doc_filename = &dbutil::get_infodb_file_path("gdbm", "archiveinf-doc", $archivedir);
 
     my $archiveinf_timestamp = -M $arcinfo_doc_filename;
@@ -296 +286 @@
     $mode_text = "reindexed";
     }
-    my $arcinfo_doc_filename = &doc_db_file($archivedir);
-    my $arcinfo_src_filename = &src_db_file($archivedir);
+    my $arcinfo_doc_filename = &dbutil::get_infodb_file_path("gdbm", "archiveinf-doc", $archivedir);
+    my $arcinfo_src_filename = &dbutil::get_infodb_file_path("gdbm", "archiveinf-src", $archivedir);
     my $doc_infodb_file_handle = &dbutil::open_infodb_write_handle("gdbm", $arcinfo_doc_filename, "append");
     my $src_infodb_file_handle = &dbutil::open_infodb_write_handle("gdbm", $arcinfo_src_filename, "append");