Changeset 292 for trunk/gsdl/perllib/mgbuildproc.pm

Timestamp:

1999-06-26T13:06:36+12:00 (25 years ago)

Author:

rjmcnab

Message:

Added ability to post-process text before it is fed to be indexed or to be
compressed.

File:

• trunk/gsdl/perllib/mgbuildproc.pm (modified) (4 diffs)

trunk/gsdl/perllib/mgbuildproc.pm

@@ -33 +33 @@
     $self->{'num_bytes'} = 0;
 
+    $self->{'indexing_text'} = 0;
+
     return bless $self, $class;
 }
@@ -89 +91 @@
 
     $self->{'classifiers'} = $classifiers;
+}
+
+sub set_indexing_text {
+    my $self = shift (@_);
+    my ($indexing_text) = @_;
+
+    $self->{'indexing_text'} = $indexing_text;
 }
 
@@ -495 +504 @@
 }
 
+sub filter_text {
+    # $self->filter_text ($field, $new_text);
+    # don't want to do anything for this version, however,
+    # in a particular collection you might want to override
+    # this method to post-process certain fields depending on
+    # the field, or whether we are outputting it for indexing
+}
+
 sub text {
     my $self = shift (@_);
@@ -569 +586 @@
             }
             
+            # filter the text
+            $self->filter_text ($field, $new_text);
+
+            if ($self->{'indexing_text'} && 
+            $new_text =~ /[\(\)\{\}]/) {
+            print "arrgh: $new_text\n";
+            }
+
             $text .= "$new_text\cC";
         }