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

(-)a/misc/migration_tools/bulkmarcimport.pl (-2 / +3 lines)
Lines 16-21 use MARC::File::XML; Link Here
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=>{}});
(-)a/misc/search_tools/export_elasticsearch_mappings.pl (-1 / +2 lines)
Lines 52-57 Full documentation. Link Here
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) );
(-)a/reports/reserves_stats.pl (-2 lines)
Lines 218-224 sub calculate { Link Here
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