Changeset 15685

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".

Location:

gsdl/trunk/perllib

Files:

• basebuildproc.pm (modified) (5 diffs)
• cfgread4gs3.pm (modified) (4 diffs)
• lucenebuilder.pm (modified) (4 diffs)
• lucenebuildproc.pm (modified) (2 diffs)
• mgppbuilder.pm (modified) (4 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
     }
 

gsdl/trunk/perllib/cfgread4gs3.pm

@@ -577 +577 @@
     my $default_search_level = "Doc";
     my $default_retrieve_level = "Doc";
-    my $default_gdbm_level = "Doc";
+    my $default_db_level = "Doc";
     $first = 1;
     if ($buildtype eq "mgpp" || $buildtype eq "lucene") {
@@ -589 +589 @@
             # let default search level follow the first level in the level list
             $default_search_level = $val;
-            # retrieve/GDBM levels may get modified later if text level is defined
+            # retrieve/database levels may get modified later if text level is defined
             $default_retrieve_level = $val;
-            $default_gdbm_level = $val;
+            $default_db_level = $val;
             $first = 0;
         }
@@ -603 +603 @@
     
     if (defined $buildcfg->{'textlevel'}) {
-       # let the retrieve/gdbm levels always follow the textlevel
+       # let the retrieve/database levels always follow the textlevel
            $default_retrieve_level = $buildcfg->{'textlevel'};
-       $default_gdbm_level = $buildcfg->{'textlevel'};
+       $default_db_level = $buildcfg->{'textlevel'};
          
     }
@@ -623 +623 @@
     }
     if ($buildtype eq "lucene" || $buildtype eq "mgpp") {
-        # make the GDBM level 
-        &write_line('COLCFG', ["<defaultDBLevel shortname=\"", $default_gdbm_level, "\" />"]);
+        &write_line('COLCFG', ["<defaultDBLevel shortname=\"", $default_db_level, "\" />"]);
     }
     # do searchTypeList

gsdl/trunk/perllib/lucenebuilder.pm

@@ -159 +159 @@
     # stored text is always Doc and Sec levels    
     my $levels = { 'document' => 1, 'section' => 1 };
-    # always do gdbm at section level
-    my $gdbm_level = "section"; 
+    # always do database at section level
+    my $db_level = "section"; 
 
     # set up the document processr
@@ -169 +169 @@
     $self->{'buildproc'}->set_indexfieldmap ($self->{'indexfieldmap'});
     $self->{'buildproc'}->set_levels ($levels);
-    $self->{'buildproc'}->set_gdbm_level ($gdbm_level);
+    $self->{'buildproc'}->set_db_level ($db_level);
     $self->{'buildproc'}->reset();
     &plugin::begin($self->{'pluginfo'}, $self->{'source_dir'},
@@ -320 +320 @@
 
     my $store_levels = $self->{'levels'};
-    my $gdbm_level = "section"; #always
+    my $db_level = "section"; #always
     my $dom_level = "";
     foreach my $key (keys %$store_levels) {
@@ -342 +342 @@
     $self->{'buildproc'}->set_indexfieldmap ($self->{'indexfieldmap'});
     $self->{'buildproc'}->set_levels ($local_levels);
-    $self->{'buildproc'}->set_gdbm_level($gdbm_level);
+    $self->{'buildproc'}->set_db_level($db_level);
     $self->{'buildproc'}->reset();
     &plugin::read ($self->{'pluginfo'}, $self->{'source_dir'},

gsdl/trunk/perllib/lucenebuildproc.pm

@@ -92 +92 @@
     if ($ldoc_level)
       {
-    if ($self->{'gdbm_level'} eq 'document')
+    if ($self->{'db_level'} eq 'document')
           {
         my $doc_sec_num = $self->{'num_docs'};
@@ -386 +386 @@
             $section = $doc_obj->get_next_section($section);
             # if no sections wanted, only gdbm the docs
-            last if ($self->{'gdbm_level'} eq "document");
+            last if ($self->{'db_level'} eq "document");
           }
         print STDERR "\n*** incrementally add metadata from document at: " . $file . "\n";

gsdl/trunk/perllib/mgppbuilder.pm

@@ -241 +241 @@
     }
     
-    my $gdbm_level = "section";
+    my $db_level = "section";
 
     $self->{'buildproc'}->set_output_handle ($handle);
@@ -249 +249 @@
     $self->{'buildproc'}->set_indexfieldmap ($self->{'indexfieldmap'});
     $self->{'buildproc'}->set_levels ($self->{'levels'});                      
-    $self->{'buildproc'}->set_gdbm_level ($gdbm_level);                       
+    $self->{'buildproc'}->set_db_level ($db_level);                       
     $self->{'buildproc'}->reset();
     &plugin::begin($self->{'pluginfo'}, $self->{'source_dir'}, 
@@ -497 +497 @@
     }
         
-    # gdbm_level is always section
-    my $gdbm_level = "section";
+    # db_level is always section
+    my $db_level = "section";
 
     # set up the document processr
@@ -508 +508 @@
     $self->{'buildproc'}->set_indexfieldmap ($self->{'indexfieldmap'});
     $self->{'buildproc'}->set_levels ($self->{'levels'}); 
-    $self->{'buildproc'}->set_gdbm_level ($gdbm_level);   
+    $self->{'buildproc'}->set_db_level ($db_level);   
     
     $self->{'buildproc'}->reset();