Changeset 3226
- Timestamp:
- 2002-07-05T16:55:56+12:00 (22 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/mgppbuildproc.pm
r3195 r3226 346 346 my ($field, $value) = (@$pair); 347 347 348 if ($field ne "Identifier" && $field !~ /^gsdl/ &&349 defined $value && $value ne "") {348 if ($field !~ /^(?:Identifier|Encoding|Language|gsdl)/ 349 && defined $value && $value ne "") { 350 350 351 351 # escape problematic stuff … … 592 592 my ($mfield, $mvalue) = (@$pair); 593 593 # check fields here, maybe others dont want - change to use dontindex!! 594 if ($mfield ne "Identifier" && $mfield ne "classifytype" && $mfield ne "assocfilepath" && 595 $mfield !~ /^gsdl/ && defined $mvalue && $mvalue ne "") { 594 if ($mfield !~ /^(?:Identifier|Encoding|Language|gsdl)/ 595 && $mfield ne "classifytype" 596 && $mfield ne "assocfilepath" 597 && defined $mvalue && $mvalue ne "") { 596 598 597 599 if (defined $self->{'indexfieldmap'}->{$mfield}) {
Note:
See TracChangeset
for help on using the changeset viewer.