From 24b0ac6084655f353ff0267ab953fc847c9ff7f6 Mon Sep 17 00:00:00 2001 From: Jared Camins-Esakov Date: Sun, 8 Jul 2012 10:06:20 -0400 Subject: [PATCH] Bug 3462: quiet warn Content-Type: text/plain; charset="UTF-8" Quiets an unnecessary warning about an uninitialized value. --- C4/AuthoritiesMarc.pm | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/C4/AuthoritiesMarc.pm b/C4/AuthoritiesMarc.pm index 21b895e..9aae63f 100644 --- a/C4/AuthoritiesMarc.pm +++ b/C4/AuthoritiesMarc.pm @@ -1103,7 +1103,7 @@ sub BuildSummary { } #See Also foreach my $field ($record->field('5..')) { my $type = 'seealso'; - $type = $marc21controlrefs{substr $field->subfield('w'), '0'} if ($field->subfield('w')); + $type = ($marc21controlrefs{substr $field->subfield('w'), '0'} || '') if ($field->subfield('w')); if ($type eq 'subfi') { push @seealso, { heading => $field->as_string($marc21subfields), -- 1.7.2.5