View | Details | Raw Unified | Return to bug 27673
Collapse All | Expand All

(-)a/misc/migration_tools/bulkmarcimport.pl (-3 / +2 lines)
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
- 

Return to bug 27673