Changeset 6546

Timestamp:

2004-01-19T15:41:59+13:00 (20 years ago)

Author:

kjdon

Message:

removed Encoding and Language from the list of metadata that doesn't get indexed or gdbm'd

File:

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

trunk/gsdl/perllib/mgppbuildproc.pm

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