@@ -, +, @@ AuthoritiesMarc.pm --- C4/AuthoritiesMarc.pm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) --- a/C4/AuthoritiesMarc.pm +++ a/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) || '', --