From 045fddd990d815b95386cd7b0f46a1b23aa48ded Mon Sep 17 00:00:00 2001 From: Marcel de Rooy Date: Thu, 5 Jul 2018 12:10:26 +0200 Subject: [PATCH] Bug 21036: Remove odd number of elements warnings from AuthoritiesMarc.pm Content-Type: text/plain; charset=utf-8 Like this one (16.11 line number): Odd number of elements in anonymous hash at C4/AuthoritiesMarc.pm line 1070. We need to add a scalar to some MARC::Field::subfield calls. In list context an empty list returned affects the hash built around it. Test plan: Could reproduce this warning easily from OPAC authority search. opac-authorities-home.pl calling BuildSummary. --- C4/AuthoritiesMarc.pm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/C4/AuthoritiesMarc.pm b/C4/AuthoritiesMarc.pm index 293f64b..ce54dff 100644 --- a/C4/AuthoritiesMarc.pm +++ b/C4/AuthoritiesMarc.pm @@ -991,14 +991,14 @@ sub BuildSummary { if ($type eq 'subfi') { push @seefrom, { heading => $field->as_string($marc21subfields), - hemain => $field->subfield( substr($marc21subfields, 0, 1) ), + hemain => scalar $field->subfield( substr($marc21subfields, 0, 1) ), type => ($field->subfield('i') || ''), field => $field->tag(), }; } else { push @seefrom, { heading => $field->as_string($marc21subfields), - hemain => $field->subfield( substr($marc21subfields, 0, 1) ), + hemain => scalar $field->subfield( substr($marc21subfields, 0, 1) ), type => $type, field => $field->tag(), }; @@ -1014,8 +1014,8 @@ sub BuildSummary { if ($type eq 'subfi') { push @seealso, { heading => $field->as_string($marc21subfields), - hemain => $field->subfield( substr($marc21subfields, 0, 1) ), - type => $field->subfield('i'), + hemain => scalar $field->subfield( substr($marc21subfields, 0, 1) ), + type => scalar $field->subfield('i'), field => $field->tag(), search => $field->as_string($marc21subfields) || '', authid => $field->subfield('9') || '' @@ -1023,7 +1023,7 @@ sub BuildSummary { } else { push @seealso, { heading => $field->as_string($marc21subfields), - hemain => $field->subfield( substr($marc21subfields, 0, 1) ), + hemain => scalar $field->subfield( substr($marc21subfields, 0, 1) ), type => $type, field => $field->tag(), search => $field->as_string($marc21subfields) || '', -- 2.1.4