From 00591b2e091b5810b86aa47720501bdaa9695ccf Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Tue, 20 Dec 2016 14:29:49 +0000 Subject: [PATCH] Bug 17692: Remove 'CGI::param called in list context' warnings Signed-off-by: Jonathan Druart Signed-off-by: Kyle M Hall --- admin/edi_ean_accounts.pl | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/admin/edi_ean_accounts.pl b/admin/edi_ean_accounts.pl index 0450e2e409..d6e8d953c2 100755 --- a/admin/edi_ean_accounts.pl +++ b/admin/edi_ean_accounts.pl @@ -69,20 +69,20 @@ else { if ($change) { $schema->resultset('EdifactEan')->find($id)->update( { - branchcode => $input->param('branchcode'), - description => $input->param('description'), - ean => $input->param('ean'), - id_code_qualifier => $input->param('id_code_qualifier'), + branchcode => scalar $input->param('branchcode'), + description => scalar $input->param('description'), + ean => scalar $input->param('ean'), + id_code_qualifier => scalar $input->param('id_code_qualifier'), } ); } else { my $new_ean = $schema->resultset('EdifactEan')->new( { - branchcode => $input->param('branchcode'), - description => $input->param('description'), - ean => $input->param('ean'), - id_code_qualifier => $input->param('id_code_qualifier'), + branchcode => scalar $input->param('branchcode'), + description => scalar $input->param('description'), + ean => scalar $input->param('ean'), + id_code_qualifier => scalar $input->param('id_code_qualifier'), } ); $new_ean->insert(); -- 2.39.5