From f6ec6425592abc744162ff424a024386bf1caa0a Mon Sep 17 00:00:00 2001
From: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Date: Fri, 28 Feb 2025 08:29:40 +0000
Subject: [PATCH] Bug 39213: Force scalar on query param barcode

Test plan:
Read the patch.

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Signed-off-by: Lucas Gass <lucas@bywatersolutions.com>
Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
(cherry picked from commit b816c790c8734d01571ec93b82268edf0018bab5)
Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com>
---
 cataloguing/moveitem.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/cataloguing/moveitem.pl b/cataloguing/moveitem.pl
index 8fda82d4b8..969794e3a4 100755
--- a/cataloguing/moveitem.pl
+++ b/cataloguing/moveitem.pl
@@ -44,7 +44,7 @@ my $op = $query->param('op') || q{};
 # The biblio to move the item to
 my $biblionumber = $query->param('biblionumber');
 # The barcode of the item to move
-my $barcode = barcodedecode($query->param('barcode'));
+my $barcode = barcodedecode( scalar $query->param('barcode') );
 
 my $biblio = Koha::Biblios->find( $biblionumber );
 $template->param(biblio => $biblio);