Changeset 21617 for main/trunk/greenstone2/perllib/plugin.pm

Timestamp:

2010-01-25T17:05:43+13:00 (14 years ago)

Author:

mdewsnip

Message:

Changed plugin.pm so it uses &dbutil::get_infodb_file_path() directly, instead of calling inexport::src_db_file(). Part of making the code less GDBM-specific.

File:

• main/trunk/greenstone2/perllib/plugin.pm (modified) (2 diffs)

main/trunk/greenstone2/perllib/plugin.pm

@@ -26 +26 @@
 package plugin;
 
-use inexport;
 
 use strict; # to pick up typos and undeclared variables...
@@ -225 +224 @@
     print STDERR "in remove some\n";
     return if (scalar(@$deleted_files)==0);
-    my $arcinfo_src_filename = &inexport::src_db_file($archivedir);
+    my $arcinfo_src_filename = &dbutil::get_infodb_file_path("gdbm", "archiveinf-src", $archivedir);
 
     foreach my $file (@$deleted_files) {