Changeset 13590 for trunk/gsdl/perllib/mgppbuildproc.pm

Timestamp:

2007-01-12T14:18:53+13:00 (17 years ago)

Author:

kjdon

Message:

mgpp and lucene. made them always use doc and sec levels for the text regardless of index level specification. mgpp will always index at doc and sec level, but these options may not be presented to the user. this is to ensure that if we have sectioned documents, we don't need to turn on section indexing in order for the document display to use sections

File:

• trunk/gsdl/perllib/mgppbuildproc.pm (modified) (2 diffs)

trunk/gsdl/perllib/mgppbuildproc.pm

@@ -85 +85 @@
     $self->{'strip_html'}=$strip;
 }
-
-
-sub get_gdbm_level {
-    my $self = shift (@_);
-    
-    #if a Section level index is not built, the gdbm file should be at doc 
-    #level not Section
-    if ($self->{'levels'}->{'section'}) {
-    return "section";
-    }
-    return "document";
-}
-
 
 #sub find_paragraphs {
@@ -208 +195 @@
     my ($fields) = split (/:/, $self->{'index'});
 
-    my ($documenttag) = "";
-    my($documentendtag) = "";
-    if ($self->{'levels'}->{'document'}) {
-    $documenttag = "\n<". $level_map{'document'} . ">\n";
-    $documentendtag = "\n</". $level_map{'document'} . ">\n";
-    }
-    my ($sectiontag) = "";
-    if ($self->{'levels'}->{'section'}) {
-    $sectiontag = "\n<". $level_map{'section'} . ">\n";
-    }
+    # we always do text and index on Doc and Sec levels
+    my ($documenttag) = "\n<". $level_map{'document'} . ">\n";
+    my ($documentendtag) = "\n</". $level_map{'document'} . ">\n";
+    my ($sectiontag) = "\n<". $level_map{'section'} . ">\n";
     my ($paratag) = "";