Attachment #116740 for bug #27673

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




use MARC::Record;
use MARC::Batch;
use MARC::Charset;
use Encode;

use Koha::Script;
use C4::Context;

}
if ($yamlfile) {
    open my $yamlfileout, q{>}, "$yamlfile" or die "cannot open $yamlfile \n";
    print $yamlfileout YAML::XS::Dump(Encode::decode_utf8($yamlhash));
}
exit 0;


    if ($authtypes){
        $headingfields = YAML::XS::LoadFile($authtypes);
        $headingfields={C4::Context->preference('marcflavour')=>$headingfields};
        $debug && warn YAML::XS::Dump(Encode::decode_utf8($headingfields));
    }
    unless ($headingfields){
        $headingfields=$dbh->selectall_hashref("SELECT auth_tag_to_report, authtypecode from auth_types",'auth_tag_to_report',{Slice=>{}});

Lines 52-57 Full documentation. Link Here

(-)a/misc/search_tools/export_elasticsearch_mappings.pl (-1 / +2 lines)
52	=cut	52	=cut
53		53
54	use Modern::Perl;	54	use Modern::Perl;
		55	use Encode;
55		56
56	use Koha::Script;	57	use Koha::Script;
57	use Koha::Database;	58	use Koha::Database;
Lines 81-84 if ( $type && $type !~ /^(marc21\|unimarc\|normarc)$/ ) { Link Here
81	my $mappings = Koha::SearchEngine::Elasticsearch::raw_elasticsearch_mappings( $type );	82	my $mappings = Koha::SearchEngine::Elasticsearch::raw_elasticsearch_mappings( $type );
82		83
83	binmode STDOUT, ":encoding(UTF-8)";	84	binmode STDOUT, ":encoding(UTF-8)";
84	print YAML::XS::Dump($mappings);	85	print Encode::decode_utf8( YAML::XS::Dump($mappings) );

Lines 218-224 sub calculate { Link Here

(-)a/reports/reserves_stats.pl (-2 lines)
218	my @sqlorparams;	218	my @sqlorparams;
219	my @sqlor;	219	my @sqlor;
220	my @sqlwhere;	220	my @sqlwhere;
221	($debug) and print STDERR YAML::XS::Dump($filters_hashref);
222	foreach my $filter (keys %$filters_hashref){	221	foreach my $filter (keys %$filters_hashref){
223	my $string;	222	my $string;
224	my $stringfield=$filter;	223	my $stringfield=$filter;
225	-

Return to bug 27673

Lines 16-21 use MARC::File::XML; Link Here

(-)a/misc/migration_tools/bulkmarcimport.pl (-2 / +3 lines)
16	use MARC::Record;	16	use MARC::Record;
17	use MARC::Batch;	17	use MARC::Batch;
18	use MARC::Charset;	18	use MARC::Charset;
		19	use Encode;
19		20
20	use Koha::Script;	21	use Koha::Script;
21	use C4::Context;	22	use C4::Context;
Lines 565-571 if ($logfile){ Link Here
565	}	566	}
566	if ($yamlfile) {	567	if ($yamlfile) {
567	open my $yamlfileout, q{>}, "$yamlfile" or die "cannot open $yamlfile \n";	568	open my $yamlfileout, q{>}, "$yamlfile" or die "cannot open $yamlfile \n";
568	print $yamlfileout YAML::XS::Dump($yamlhash);	569	print $yamlfileout YAML::XS::Dump(Encode::decode_utf8($yamlhash));
569	}	570	}
570	exit 0;	571	exit 0;
571		572
Lines 633-639 sub get_heading_fields{ Link Here
633	if ($authtypes){	634	if ($authtypes){
634	$headingfields = YAML::XS::LoadFile($authtypes);	635	$headingfields = YAML::XS::LoadFile($authtypes);
635	$headingfields={C4::Context->preference('marcflavour')=>$headingfields};	636	$headingfields={C4::Context->preference('marcflavour')=>$headingfields};
636	$debug && warn YAML::XS::Dump($headingfields);	637	$debug && warn YAML::XS::Dump(Encode::decode_utf8($headingfields));
637	}	638	}
638	unless ($headingfields){	639	unless ($headingfields){
639	$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=>{}});