Changeset 1072

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.

Location:

trunk/gsdl/perllib

Files:

• mgbuilder.pm (modified) (1 diff)
• mgbuildproc.pm (modified) (2 diffs)

trunk/gsdl/perllib/mgbuilder.pm

@@ -220 +220 @@
 
     # -b $maxdocsize sets the maximum document size to be 12 meg
-    if (!$self->{'debug'}) {
-        if (!-e "$mg_passes_exe" || 
-        !open ($handle, "| $mg_passes_exe -f $fulltextprefix -b $maxdocsize -T2 $osextra")) {
-        die "mgbuilder::compress_text - couldn't run $mg_passes_exe\n";
-        }
+    if (!-e "$mg_passes_exe" || 
+        !open ($handle, "| $mg_passes_exe -f $fulltextprefix -b $maxdocsize -T2 $osextra")) {
+        die "mgbuilder::compress_text - couldn't run $mg_passes_exe\n";
     }
     }

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";
         }