|
Lines 566-572
if ($logfile){
Link Here
|
| 566 |
} |
566 |
} |
| 567 |
if ($yamlfile) { |
567 |
if ($yamlfile) { |
| 568 |
open my $yamlfileout, q{>}, "$yamlfile" or die "cannot open $yamlfile \n"; |
568 |
open my $yamlfileout, q{>}, "$yamlfile" or die "cannot open $yamlfile \n"; |
| 569 |
print $yamlfileout YAML::XS::Dump(Encode::decode_utf8($yamlhash)); |
569 |
print $yamlfileout Encode::decode_utf8(YAML::XS::Dump($yamlhash)); |
| 570 |
} |
570 |
} |
| 571 |
exit 0; |
571 |
exit 0; |
| 572 |
|
572 |
|
|
Lines 634-640
sub get_heading_fields{
Link Here
|
| 634 |
if ($authtypes){ |
634 |
if ($authtypes){ |
| 635 |
$headingfields = YAML::XS::LoadFile($authtypes); |
635 |
$headingfields = YAML::XS::LoadFile($authtypes); |
| 636 |
$headingfields={C4::Context->preference('marcflavour')=>$headingfields}; |
636 |
$headingfields={C4::Context->preference('marcflavour')=>$headingfields}; |
| 637 |
$debug && warn YAML::XS::Dump(Encode::decode_utf8($headingfields)); |
637 |
$debug && warn Encode::decode_utf8(YAML::XS::Dump($headingfields)); |
| 638 |
} |
638 |
} |
| 639 |
unless ($headingfields){ |
639 |
unless ($headingfields){ |
| 640 |
$headingfields=$dbh->selectall_hashref("SELECT auth_tag_to_report, authtypecode from auth_types",'auth_tag_to_report',{Slice=>{}}); |
640 |
$headingfields=$dbh->selectall_hashref("SELECT auth_tag_to_report, authtypecode from auth_types",'auth_tag_to_report',{Slice=>{}}); |
| 641 |
- |
|
|