From 0f8b25e82d03d37a0ba8b326de28744b888d4040 Mon Sep 17 00:00:00 2001 From: Marcel de Rooy Date: Wed, 17 Aug 2016 15:14:12 +0200 Subject: [PATCH] Bug 16809: Follow-up for scalarizing biblionumber Content-Type: text/plain; charset=utf-8 Still resolves another multi_param warning. Test plan: Look at your logs before and after this patch when saving a biblio record (you may have to start plack again). If your biblionumber is mapped to 999c, you should no longer have a warn about line 2563 (disclaimer: line numbers are subject to change). Signed-off-by: Marcel de Rooy --- C4/Biblio.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/C4/Biblio.pm b/C4/Biblio.pm index 3c99638..3a34d79 100644 --- a/C4/Biblio.pm +++ b/C4/Biblio.pm @@ -2558,9 +2558,9 @@ sub TransformHtmlToMarc { # if we are on biblionumber, store it in the MARC::Record (it may not be in the edited fields) if ( $param eq 'biblionumber' ) { if ( $biblionumbertagfield < 10 ) { - $newfield = MARC::Field->new( $biblionumbertagfield, $cgi->param($param), ); + $newfield = MARC::Field->new( $biblionumbertagfield, scalar $cgi->param($param), ); } else { - $newfield = MARC::Field->new( $biblionumbertagfield, '', '', "$biblionumbertagsubfield" => $cgi->param($param), ); + $newfield = MARC::Field->new( $biblionumbertagfield, '', '', "$biblionumbertagsubfield" => scalar $cgi->param($param), ); } push @fields, $newfield if ($newfield); } elsif ( $param =~ /^tag_(\d*)_indicator1_/ ) { # new field start when having 'input name="..._indicator1_..." -- 2.1.4