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

Timestamp:

1999-11-12T15:31:02+13:00 (24 years ago)

Author:

sjboddie

Message:

added dontgdbm configuration option

File:

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

trunk/gsdl/perllib/mgbuildproc.pm

@@ -51 +51 @@
     $self->{'classifiers'} = [];
     $self->{'mode'} = "text";
+    $self->{'dontgdbm'} = {};
     $self->{'index'} = "section:text";
     $self->{'indexexparr'} = [];
@@ -101 +102 @@
 
     $self->{'mode'} = $mode;
+}
+
+sub set_dontgdbm {
+    my $self = shift (@_);
+    my ($dontgdbm) = @_;
+
+    $self->{'dontgdbm'} = $dontgdbm;
 }
 
@@ -214 +222 @@
 
         if ($field ne "Identifier" && $field !~ /^gsdl/ && 
-        defined $value && $value ne "") {
+        defined $value && $value ne "" && 
+        !defined $self->{'dontgdbm'}->{$field}) {
         # escape problematic stuff
         $value =~ s/\\/\\\\/g;