From b816c790c8734d01571ec93b82268edf0018bab5 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>
---
 cataloguing/moveitem.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/cataloguing/moveitem.pl b/cataloguing/moveitem.pl
index 66a4489415..e7cb70c5cd 100755
--- a/cataloguing/moveitem.pl
+++ b/cataloguing/moveitem.pl
@@ -46,7 +46,7 @@ my $op = $query->param('op') || q{};
 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 );