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

Timestamp:

2010-01-21T16:20:42+13:00 (14 years ago)

Author:

mdewsnip

Message:

Changed all places explicitly using "archiveinf-doc.gdb" or "archiveinf-src.gdb" to use the dbutil::get_infodb_file_path() function... you know, the one that should have been used originally? In preparation for making it possible to use something other than GDBM, and part of making the code less GDBM-specific.

File:

• main/trunk/greenstone2/perllib/inexport.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/inexport.pm

@@ -36 +36 @@
 sub src_db_file {
     my ($archivedir) = @_;
-    return &util::filename_cat ($archivedir, "archiveinf-src.gdb");
+    return &dbutil::get_infodb_file_path("gdbm", "archiveinf-src", $archivedir);
 }
 
 sub doc_db_file {
     my ($archivedir) = @_;
-    return &util::filename_cat ($archivedir, "archiveinf-doc.gdb");
+    return &dbutil::get_infodb_file_path("gdbm", "archiveinf-doc", $archivedir);
 }