From b7b48eda3f973c9eee3b91d024c04c78c2ddb547 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 MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit 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 Signed-off-by: Jonathan Druart Signed-off-by: Kyle M Hall (cherry picked from commit 377feb9cdf5b4d490dee7640b50c374e28f4550f) Signed-off-by: Frédéric Demians --- C4/Biblio.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/C4/Biblio.pm b/C4/Biblio.pm index 3c99638e90..3a34d79524 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.39.5