Bug 31177: Fix misplaced import in C4::ILSDI::Services

[srvgit] / C4 / Ris.pm

diff --git a/C4/Ris.pm b/C4/Ris.pm
index 5bf8ecc..9ab50d9 100644 (file)
--- a/C4/Ris.pm
+++ b/C4/Ris.pm
@@ -62,11 +62,12 @@ package C4::Ris;
 
 use Modern::Perl;
 
-use List::MoreUtils qw/uniq/;
+use List::MoreUtils qw( uniq );
+use YAML::XS;
+use Encode;
 use vars qw(@ISA @EXPORT);
 
-use C4::Biblio qw(GetMarcSubfieldStructureFromKohaField);
-use Koha::SimpleMARC qw(read_field);
+use Koha::SimpleMARC qw( read_field );
 
 
 @ISA = qw(Exporter);
@@ -74,7 +75,7 @@ use Koha::SimpleMARC qw(read_field);
 # only export API methods
 
 @EXPORT = qw(
-  &marc2ris
+  marc2ris
 );
 
 our $marcprint = 0; # Debug flag;
@@ -91,7 +92,6 @@ C<$record> - a MARC::Record object
 
 sub marc2ris {
     my ($record) = @_;
-    my $output;
 
     my $marcflavour = C4::Context->preference("marcflavour");
     my $intype = lc($marcflavour);
@@ -121,7 +121,7 @@ sub marc2ris {
     my $ris_additional_fields;
     if ($RisExportAdditionalFields) {
         $RisExportAdditionalFields = "$RisExportAdditionalFields\n\n";
-        $ris_additional_fields = eval { YAML::Load($RisExportAdditionalFields); };
+        $ris_additional_fields = eval { YAML::XS::Load(Encode::encode_utf8($RisExportAdditionalFields)); };
         if ($@) {
             warn "Unable to parse RisExportAdditionalFields : $@";
             $ris_additional_fields = undef;