|
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 |
- |
|
|