From a110d53238e0aa280b705edbfc8e4aa3de823cf9 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Fri, 12 Feb 2021 15:37:22 +0100 Subject: [PATCH] Bug 27673: (follow-up) Fix encoding issues - Dump --- misc/migration_tools/bulkmarcimport.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/misc/migration_tools/bulkmarcimport.pl b/misc/migration_tools/bulkmarcimport.pl index 2fcb968f71..cb3b5c6a70 100755 --- a/misc/migration_tools/bulkmarcimport.pl +++ b/misc/migration_tools/bulkmarcimport.pl @@ -566,7 +566,7 @@ if ($logfile){ } if ($yamlfile) { open my $yamlfileout, q{>}, "$yamlfile" or die "cannot open $yamlfile \n"; - print $yamlfileout YAML::XS::Dump(Encode::decode_utf8($yamlhash)); + print $yamlfileout Encode::decode_utf8(YAML::XS::Dump($yamlhash)); } exit 0; @@ -634,7 +634,7 @@ sub get_heading_fields{ if ($authtypes){ $headingfields = YAML::XS::LoadFile($authtypes); $headingfields={C4::Context->preference('marcflavour')=>$headingfields}; - $debug && warn YAML::XS::Dump(Encode::decode_utf8($headingfields)); + $debug && warn Encode::decode_utf8(YAML::XS::Dump($headingfields)); } unless ($headingfields){ $headingfields=$dbh->selectall_hashref("SELECT auth_tag_to_report, authtypecode from auth_types",'auth_tag_to_report',{Slice=>{}}); -- 2.20.1