浏览代码

Bug 27673: (follow-up) Fix encoding issues - Dump

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
21.05.x
Jonathan Druart 3 年前
父节点
当前提交
aba8a17713
  1. 4
      misc/migration_tools/bulkmarcimport.pl

4
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=>{}});

正在加载...
取消
保存