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

Timestamp:

2008-08-29T15:46:59+12:00 (16 years ago)

Author:

mdewsnip

Message:

No longer writes out the document/section number entries for Lucene, since it doesn't need this information any more (now that Lucene uses the Greenstone OIDs directly). This will only work if a custom lucenebuildproc isn't used, but the worst case scenario is that these entries will be unused in the infodb file.

File:

• gsdl/trunk/perllib/basebuildproc.pm (modified) (1 diff)

gsdl/trunk/perllib/basebuildproc.pm

@@ -524 +524 @@
     &dbutil::write_infodb_entry($self->{'infodbtype'}, $infodb_handle, $section_OID, \%section_infodb);
     
-    # output a database entry for the document number
-    if ($self->{'db_level'} eq "document") {
-        &dbutil::write_infodb_entry($self->{'infodbtype'}, $infodb_handle, $self->{'num_docs'}, { 'section' => [ $doc_OID ] });
-    }
-    else {
-        &dbutil::write_infodb_entry($self->{'infodbtype'}, $infodb_handle, $self->{'num_sections'}, { 'section' => [ $section_OID ] });
+    # output a database entry for the document number, except for Lucene (which no longer needs this information)
+    unless (ref($self) eq "lucenebuildproc")
+    {
+        if ($self->{'db_level'} eq "document") {
+        &dbutil::write_infodb_entry($self->{'infodbtype'}, $infodb_handle, $self->{'num_docs'}, { 'section' => [ $doc_OID ] });
+        }
+        else {
+        &dbutil::write_infodb_entry($self->{'infodbtype'}, $infodb_handle, $self->{'num_sections'}, { 'section' => [ $section_OID ] });
+        }
     }