Changeset 9214 for trunk/gsdl/perllib/lucenebuildproc.pm

Timestamp:

2005-02-28T15:47:00+13:00 (19 years ago)

Author:

kjdon

Message:

now set a gdbm_level in buildproc, so can tell whether to number documents by doc num or section num

File:

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

trunk/gsdl/perllib/lucenebuildproc.pm

@@ -46 +46 @@
 }
 
+sub set_gdbm_level {
+    my $self = shift(@_);
+    my ($level) = @_;
+
+    $self->{'gdbm_level'} = $level;
+}
 sub preprocess_text {
     my $self = shift (@_);
@@ -141 +147 @@
     my $docid="";
     if ($ldoc_level) {
-    if ($lsec_level) {
-        
+    if ($self->{'gdbm_level'} eq 'document') {
+        my $doc_sec_num = $self->{'num_docs'};  
+        $docid = "gs2:id=\"$doc_sec_num\"";
+    } else  {
+        # default is section level
         my $doc_sec_num = $self->{'num_sections'}+1;    
         $docid = "gs2:id=\"$doc_sec_num\"";
-    } else {
-        my $doc_sec_num = $self->{'num_docs'};  
-        $docid = "gs2:id=\"$doc_sec_num\"";
-    }
-    }
-
+    }
+    }
     my $documenttag = "<$doc_level $gs2ns file=\"$file\" $docid >\n";
     my $documentendtag = "\n</$doc_level>\n";