|
@ -566,7 +566,7 @@ if ($logfile){ |
|
|
} |
|
|
} |
|
|
if ($yamlfile) { |
|
|
if ($yamlfile) { |
|
|
open my $yamlfileout, q{>}, "$yamlfile" or die "cannot open $yamlfile \n"; |
|
|
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; |
|
|
exit 0; |
|
|
|
|
|
|
|
@ -634,7 +634,7 @@ sub get_heading_fields{ |
|
|
if ($authtypes){ |
|
|
if ($authtypes){ |
|
|
$headingfields = YAML::XS::LoadFile($authtypes); |
|
|
$headingfields = YAML::XS::LoadFile($authtypes); |
|
|
$headingfields={C4::Context->preference('marcflavour')=>$headingfields}; |
|
|
$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){ |
|
|
unless ($headingfields){ |
|
|
$headingfields=$dbh->selectall_hashref("SELECT auth_tag_to_report, authtypecode from auth_types",'auth_tag_to_report',{Slice=>{}}); |
|
|
$headingfields=$dbh->selectall_hashref("SELECT auth_tag_to_report, authtypecode from auth_types",'auth_tag_to_report',{Slice=>{}}); |
|
|