use Modern::Perl;
-use List::MoreUtils qw/uniq/;
+use List::MoreUtils qw( uniq );
use YAML::XS;
+use Encode;
use vars qw(@ISA @EXPORT);
-use Koha::SimpleMARC qw(read_field);
+use Koha::SimpleMARC qw( read_field );
@ISA = qw(Exporter);
# only export API methods
@EXPORT = qw(
- &marc2ris
+ marc2ris
);
our $marcprint = 0; # Debug flag;
my $ris_additional_fields;
if ($RisExportAdditionalFields) {
$RisExportAdditionalFields = "$RisExportAdditionalFields\n\n";
- $ris_additional_fields = eval { YAML::XS::Load($RisExportAdditionalFields); };
+ $ris_additional_fields = eval { YAML::XS::Load(Encode::encode_utf8($RisExportAdditionalFields)); };
if ($@) {
warn "Unable to parse RisExportAdditionalFields : $@";
$ris_additional_fields = undef;