From 646a1ede2beb8905ac134b56f7c50693e4d00c6c Mon Sep 17 00:00:00 2001
From: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
Date: Tue, 26 Jul 2022 09:14:45 +0200
Subject: [PATCH] Bug 32030: Fix UTF8 issue

GET /api/v1/erm/eholdings/ebsco/titles: unhandled exception (Mojo::Exception)<<Wide character in subroutine entry at /kohadevbox/koha/Koha/ERM/Providers/EBSCO.pm line 123

Signed-off-by: Jonathan Field <jonathan.field@ptfs-europe.com>

Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
---
 Koha/ERM/Providers/EBSCO.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Koha/ERM/Providers/EBSCO.pm b/Koha/ERM/Providers/EBSCO.pm
index 1ed7956331..13ec4c68ca 100644
--- a/Koha/ERM/Providers/EBSCO.pm
+++ b/Koha/ERM/Providers/EBSCO.pm
@@ -4,7 +4,7 @@ use Modern::Perl;
 
 use HTTP::Request;
 use LWP::UserAgent;
-use JSON qw( decode_json );
+use JSON qw( from_json decode_json );
 use List::Util qw( first );
 
 use Koha::Exceptions;
@@ -119,7 +119,7 @@ sub build_additional_params {
 
     my $additional_params;
     if ( $query_params->{q} ) {
-        my $q = decode_json $query_params->{q};
+        my $q = from_json $query_params->{q};
         while ( my ( $attr, $value ) = each %$q ) {
             $additional_params->{$attr} = $value;
         }
-- 
2.39.5