View | Details | Raw Unified | Return to bug 23173
Collapse All | Expand All

(-)a/Koha/Illrequest/Availability.pm (-3 / +3 lines)
Lines 21-27 use Modern::Perl; Link Here
21
21
22
use JSON;
22
use JSON;
23
use MIME::Base64 qw( encode_base64 );
23
use MIME::Base64 qw( encode_base64 );
24
use URI::Escape qw ( uri_escape );
24
use URI::Escape qw( uri_escape );
25
use Encode qw( encode );
25
26
26
use Koha::Plugins;
27
use Koha::Plugins;
27
28
Lines 114-120 sub prep_metadata { Link Here
114
    # so this function returns something predictable that we can test!
115
    # so this function returns something predictable that we can test!
115
    my $json = JSON->new;
116
    my $json = JSON->new;
116
    $json->canonical([1]);
117
    $json->canonical([1]);
117
    return uri_escape(encode_base64($json->encode($metadata)));
118
    return uri_escape(encode_base64(encode('utf-8',$json->encode($metadata))));
118
}
119
}
119
120
120
=head1 AUTHOR
121
=head1 AUTHOR
121
- 

Return to bug 23173