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

Timestamp:

2000-04-05T10:26:33+12:00 (24 years ago)

Author:

sjboddie

Message:

Fixed bug - Control B's and C's were only being removed from body of text
and not from metadata values. This caused problems for mg when indexing
metadata values containing Control B's or C's. They're now removed from
both text and metadata.

File:

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

trunk/gsdl/perllib/mgbuildproc.pm

@@ -420 +420 @@
             
             } else {
-            $new_text = join ("\cC", @{$doc_obj->get_metadata ($section, $real_field)});
+            my $first = 1;
+            foreach $meta (@{$doc_obj->get_metadata ($section, $real_field)}) {
+                $meta =~ s/[\cB\cC]//g;
+                $new_text .= "\cC" unless $first;
+                $new_text .= $meta;
+                $first = 0;
+            }
             }
             
@@ -426 +432 @@
             $self->filter_text ($field, $new_text);
 
-            if ($self->{'indexing_text'} && 
-            $new_text =~ /[\(\)\{\}]/) {
-            }
-
             $text .= "$new_text\cC";
         }