@@ -, +, @@ --- circ/overdue.pl | 2 +- circ/ypattrodue-attr-search-authvalue.pl | 2 +- circ/ysearch.pl | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) --- a/circ/overdue.pl +++ a/circ/overdue.pl @@ -351,7 +351,7 @@ if ($noreport) { } if ($op eq 'csv') { - binmode(STDOUT, ":utf8"); + binmode(STDOUT, ":encoding(UTF-8)"); my $csv = build_csv(\@overduedata); print $input->header(-type => 'application/vnd.sun.xml.calc', -encoding => 'utf-8', --- a/circ/ypattrodue-attr-search-authvalue.pl +++ a/circ/ypattrodue-attr-search-authvalue.pl @@ -32,7 +32,7 @@ $attrcode =~ s|^/||; my ( $auth_status, $sessionID ) = check_cookie_auth( $input->cookie('CGISESSID'), { circulate => '*' } ); exit 0 if $auth_status ne "ok"; -binmode STDOUT, ":utf8"; +binmode STDOUT, ":encoding(UTF-8)"; print $input->header( -type => 'text/plain', -charset => 'UTF-8' ); print STDERR ">> CALLING $0 (attrcode=$attrcode, query=$query)\n" if $debug; --- a/circ/ysearch.pl +++ a/circ/ysearch.pl @@ -33,7 +33,7 @@ use C4::Auth qw/check_cookie_auth/; my $input = new CGI; my $query = $input->param('query'); -binmode STDOUT, ":utf8"; +binmode STDOUT, ":encoding(UTF-8)"; print $input->header(-type => 'text/plain', -charset => 'UTF-8'); my ($auth_status, $sessionID) = check_cookie_auth($input->cookie('CGISESSID'), { circulate => '*' }); --