Changeset 15685 for gsdl/trunk/perllib/lucenebuildproc.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/lucenebuildproc.pm (modified) (2 diffs)

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