Changeset 2480

Timestamp:

2001-05-29T10:51:39+12:00 (23 years ago)

Author:

kjm18

Message:

added the store_text option as done in mgbuildproc.pm

File:

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

trunk/gsdl/perllib/mgppbuildproc.pm

@@ -67 +67 @@
     $self->{'num_processed_bytes'} = 0;
     $self->{'outhandle'} = $outhandle;
+    $self->{'store_text'} = 1;
     $self->{'dontindex'} = {};
     $self->{'indexfieldmap'} = {};
@@ -175 +176 @@
 
     return $self->{'indexing_text'};
+}
+
+sub set_store_text {
+    my $self = shift (@_);
+    my ($store_text) = @_;
+
+    $self->{'store_text'} = $store_text;
 }
 
@@ -547 +555 @@
             if ($self->{'indexing_text'}) { #tag the text with <Text>...</Text>, add the <Paragraph> tags and strip out html if needed
                 $new_text .= "<TX>\n";
-                $tmp_text .= $doc_obj->get_text ($section);
+                $tmp_text .= $doc_obj->get_text ($section) if $self->{'store_text'};
                 $tmp_text = $self->preprocess_text($tmp_text, $self->{'strip_html'}, $self->{'levels'}->{'Paragraph'});
 
@@ -556 +564 @@
             }
             else { # leave html stuff in, and dont add Paragraph tags - never retrieve paras at the moment
-                $new_text .= $doc_obj->get_text ($section);
+                $new_text .= $doc_obj->get_text ($section) if $self->{'store_text'};
                             #if ($self->{'levels'}->{'Paragraph'}) {
                 #$self->find_paragraphs($new_text);
@@ -569 +577 @@
                 my ($mfield, $mvalue) = (@$pair);
                 # check fields here, maybe others dont want - change to use dontindex!!
-                if ($mfield ne "Identifier" && $mfield ne "classifytype" && 
+                if ($mfield ne "Identifier" && $mfield ne "classifytype" && $mfield ne "assocfilepath" && 
                     $mfield !~ /^gsdl/ && defined $mvalue && $mvalue ne "") {