@@ -, +, @@ --- misc/migration_tools/bulkmarcimport.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) --- a/misc/migration_tools/bulkmarcimport.pl +++ a/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=>{}}); --