Changeset 3226

Timestamp:

2002-07-05T16:55:56+12:00 (22 years ago)

Author:

jrm21

Message:

Don't allow fields Encoding or Language for search - these are internal?!?

File:

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

trunk/gsdl/perllib/mgppbuildproc.pm

@@ -346 +346 @@
         my ($field, $value) = (@$pair);
 
-        if ($field ne "Identifier" && $field !~ /^gsdl/ && 
-        defined $value && $value ne "") {
+        if ($field !~ /^(?:Identifier|Encoding|Language|gsdl)/
+        && defined $value && $value ne "") {
 
         # escape problematic stuff
@@ -592 +592 @@
                 my ($mfield, $mvalue) = (@$pair);
                 # check fields here, maybe others dont want - change to use dontindex!!
-                if ($mfield ne "Identifier" && $mfield ne "classifytype" && $mfield ne "assocfilepath" && 
-                    $mfield !~ /^gsdl/ && defined $mvalue && $mvalue ne "") {
+                if ($mfield !~ /^(?:Identifier|Encoding|Language|gsdl)/
+                    && $mfield ne "classifytype"
+                    && $mfield ne "assocfilepath"
+                    && defined $mvalue && $mvalue ne "") {
                     
                     if (defined $self->{'indexfieldmap'}->{$mfield}) {