From 665190d5060841129e2928dadb39673d668e1be2 Mon Sep 17 00:00:00 2001 From: Fridolin Somers Date: Wed, 13 Feb 2019 13:25:20 +0100 Subject: [PATCH] Bug 22323: cronjob runreport.pl CSV add encoding MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Cronjob runreport.pl runs SQL reports and can export as CSV. This export needs to be UTF-8 encoded. This pathes replaces use of Text::CSV_XS by Text::CSV::Encoded like in other places like tools/viewlog.pl. It adds a decode of headers bcause they will be encoded lika other lines. Test plan: 1) Create a new item with itemnotes 'accentué' 2) Create a SQL report with : SELECT barcode,itemnotes AS itè FROM items WHERE itemnotes LIKE 'accenté' 3) Run this report 4) You see well encoded header and content 5) Run from command line (replace X by report number) : misc/cronjobs/runreport.pl X --format=csv --csv-header --store-results 6) You well encoded header and content 7) Go to saved reports table 8) Look at saved results of report 9) You well encoded header and content Signed-off-by: Mikaël Olangcay Brisebois --- misc/cronjobs/runreport.pl | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/misc/cronjobs/runreport.pl b/misc/cronjobs/runreport.pl index 65cf7e44fb..c89a6d4844 100755 --- a/misc/cronjobs/runreport.pl +++ b/misc/cronjobs/runreport.pl @@ -30,7 +30,7 @@ use Koha::DateUtils; use Getopt::Long qw(:config auto_help auto_version); use Pod::Usage; use MIME::Lite; -use Text::CSV_XS; +use Text::CSV::Encoded; use CGI qw ( -utf8 ); use Carp; use Encode; @@ -273,17 +273,18 @@ foreach my $report_id (@ARGV) { } $message = $cgi->table(join "", @rows); } elsif ($format eq 'csv') { - my $csv = Text::CSV_XS->new({ + my $csv = Text::CSV::Encoded->new({ + encoding_out => 'utf8', binary => 1, quote_char => $quote, sep_char => $separator, }); if ( $csv_header ) { - my $fields = $sth->{NAME}; - $csv->combine( @$fields ); + my @fields = map { decode( 'utf8', $_ ) } @{ $sth->{NAME} }; + $csv->combine( @fields ); $message .= $csv->string() . "\n"; - push @rows_to_store, [@$fields] if $store_results; + push @rows_to_store, [@fields] if $store_results; } while (my $line = $sth->fetchrow_arrayref) { -- 2.17.1