From 283ae8e90fc3dd034267672d737a06553f4f3d6f Mon Sep 17 00:00:00 2001 From: Jason Etheridge Date: Sat, 22 Jun 2019 23:03:08 -0400 Subject: [PATCH] overzealous; control fields --- sql/base/base.sql | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/sql/base/base.sql b/sql/base/base.sql index b5ae24b..7c75408 100644 --- a/sql/base/base.sql +++ b/sql/base/base.sql @@ -3210,7 +3210,7 @@ foreach my $i (0..$#$tags) { $marc->append_fields(MARC::Field->new($tag, $ind1s->[$i], $ind2s->[$i], $sf => $values->[$i])) if $values->[$i] !~ /^\s*$/ and $values->[$i] ne 'NULL'; } elsif ($tags->[$i] =~ /^(\d{3})$/) { $tag = $1; - $marc->append_fields(MARC::Field->new($tag, $ind1s->[$i], $ind2s->[$i], $values->[$i])) if $values->[$i] !~ /^\s*$/ and $values->[$i] ne 'NULL'; + $marc->append_fields(MARC::Field->new($tag, $values->[$i])) if $values->[$i] !~ /^\s*$/ and $values->[$i] ne 'NULL'; } } -- 1.7.2.5