Bug 27526: Fix encoding issue on subfield

If you have a "é" subfield it should work!

Note that VARCHAR(1) for binary means 1-byte (from MySQL doc):
"For example, if the default character set is utf8mb4, CHAR(5) BINARY is
treated as CHAR(5) CHARACTER SET utf8mb4 COLLATE utf8mb4_bin. This
differs from BINARY(5), which stores 5-byte binary strings that have the
binary character set and collation."

Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
This commit is contained in:
Jonathan Druart 2021-07-21 11:24:27 +02:00
parent 5c0c400e16
commit 9f1d78e875
1 changed files with 2 additions and 1 deletions

View File

@ -51,6 +51,7 @@ use C4::Members;
use MARC::File::XML;
use URI::Escape qw( uri_escape_utf8 );
use Encode qw( encode_utf8 );
use MIME::Base64 qw( decode_base64url encode_base64url );
use List::Util qw( first );
use List::MoreUtils qw( any uniq );
@ -693,7 +694,7 @@ if ($op eq "additem") {
my @more_subfields_xml = $input->multi_param("items.more_subfields_xml");
my @unlinked_item_subfields;
for my $subfield ( uniq @more_subfields_xml ) {
my @v = $input->multi_param('items.more_subfields_xml_' . $subfield);
my @v = $input->multi_param('items.more_subfields_xml_' . encode_utf8($subfield));
push @unlinked_item_subfields, $subfield, $_ for @v;
}
if ( @unlinked_item_subfields ) {