Changeset 15685 for gsdl/trunk/perllib/basebuildproc.pm

Timestamp:

2008-05-23T15:33:58+12:00 (16 years ago)

Author:

mdewsnip

Message:

(Adding new DB support) Changed all the "gdbm_level"s to "db_level".

File:

• gsdl/trunk/perllib/basebuildproc.pm (modified) (5 diffs)

gsdl/trunk/perllib/basebuildproc.pm

@@ -120 +120 @@
     $self->{'store_text'} = 1;
 
-    # what level (section/document) the gdbm database - indexer intersection is
-    $self->{'gdbm_level'} = "section";
+    # what level (section/document) the database - indexer intersection is
+    $self->{'db_level'} = "section";
     #used by browse interface
     $self->{'doclist'} = [];
@@ -276 +276 @@
 }
 
-# the standard gdbm level is section, but you may want to change it to document
-sub set_gdbm_level {
+# the standard database level is section, but you may want to change it to document
+sub set_db_level {
     my $self= shift (@_);
-    my ($gdbm_level) = @_;
-
-    $self->{'gdbm_level'} = $gdbm_level;
+    my ($db_level) = @_;
+
+    $self->{'db_level'} = $db_level;
 }
 
@@ -491 +491 @@
 
 
-    if ($self->{'gdbm_level'} eq "document") {
+    if ($self->{'db_level'} eq "document") {
         # doc num is num_docs not num_sections
         # output the matching document number
@@ -526 +526 @@
     
     # output a database entry for the document number
-    if ($self->{'gdbm_level'} eq "document") {
+    if ($self->{'db_level'} eq "document") {
         print $handle "[$self->{'num_docs'}]\n";
         print $handle "<section>$doc_OID\n";
@@ -544 +544 @@
     $first = 0;
     $section = $doc_obj->get_next_section($section);
-    last if ($self->{'gdbm_level'} eq "document"); # if no sections wanted, only gdbm the docs
+    last if ($self->{'db_level'} eq "document"); # if no sections wanted, only add the docs
     }