Changeset 21564 for main/trunk/greenstone2/perllib/plugouts/BasePlugout.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/plugouts/BasePlugout.pm (modified) (3 diffs)

main/trunk/greenstone2/perllib/plugouts/BasePlugout.pm

@@ -409 +409 @@
     ##############################
     $self->saveas($doc_obj,$doc_dir);
-    $self->archiveinf_gdbm($doc_obj,$doc_dir); 
+    $self->archiveinf_db($doc_obj,$doc_dir); 
 
 }
@@ -699 +699 @@
 }
 
-sub archiveinf_gdbm
+sub archiveinf_db
 {
     my $self = shift (@_);
@@ -740 +740 @@
     $self->archiveinf_files_to_field($doc_obj->get_meta_files(),"meta-file",
                      $collect_dir,$oid_files);
-
-
-    # better not to commit to a particular db implementation, but
-    # for simplicity, will use GDBM for now.
 
     my $output_dir = $self->{'output_dir'};