Changeset 21564 for main/trunk/greenstone2/perllib/arcinfo.pm

Timestamp:

2010-01-21T15:59:35+13:00 (14 years ago)

Author:

mdewsnip

Message:

Changed lots of occurrences of "GDBM" in comments, variable names and function names, where the code isn't GDBM-specific. Part of making the code less GDBM-specific.

File:

• main/trunk/greenstone2/perllib/arcinfo.pm (modified) (6 diffs)

main/trunk/greenstone2/perllib/arcinfo.pm

@@ -86 +86 @@
 }
 
-sub _load_info_gdbm
+sub _load_info_db
 {
     my $self = shift (@_);
@@ -118 +118 @@
     }
     else {
-        $self->_load_info_gdbm($filename);
-    }
-    }
-}
-
-sub _load_filelist_gdbm
+        $self->_load_info_db($filename);
+    }
+    }
+}
+
+sub _load_filelist_db
 {
     my $self = shift (@_);
@@ -151 +151 @@
     }
     else {
-        $self->_load_filelist_gdbm($filename);
+        $self->_load_filelist_db($filename);
     }
     }
@@ -192 +192 @@
 }
 
-sub _save_info_gdbm {
+sub _save_info_db {
     my $self = shift (@_);
     my ($filename) = @_;
@@ -232 +232 @@
 }
 
-sub save_revinfo_gdbm {
+sub save_revinfo_db {
     my $self = shift (@_);
     my ($rev_filename) = @_;
@@ -258 +258 @@
     }
     else {
-    $self->_save_info_gdbm($filename);
+    $self->_save_info_db($filename);
     }
 }