From ed7bf9c3b387410cbd0583d3767859bad9b16976 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Fri, 20 Nov 2020 15:33:02 +0100 Subject: [PATCH] Bug 27045: Fix items lost report export if delimiter is tab When choosing tabulation as the delimiter for a CSV profile for the lost item report, the tabs appear in the file as \t instead of as proper tabs. title\tauthor\tstocknumber\tcallnumber "E Street shuffle :"\"Heylin, Clinton."\\ To test: * Upate the existing sample lost item CSV profile to use tabs as separator * Make sure you have some lost items in your database or create some * Go to Reports > Lost items * Run the report * Check all or some of the checkboxes in the result list * Export using the link on top and the CSV profile * Verify the tabs are not exported correctly * Apply patch * Verify tabs now are proper tabs instead of \t Signed-off-by: Katrin Fischer Signed-off-by: Nick Clemens Signed-off-by: Tomas Cohen Arazi (cherry picked from commit 983965ee4790fd7841af87fcfdb8395ccea9e813) Signed-off-by: Lucas Gass (cherry picked from commit 4db8368fd558066ab321353e9eb346563f871f72) Signed-off-by: Arthur Suzuki (cherry picked from commit becbc5bec1bece7f5dbf9089c7e1bd593e9d850c) Signed-off-by: Victor Grousset/tuxayo --- reports/itemslost.pl | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/reports/itemslost.pl b/reports/itemslost.pl index 3fcb75d632..2cbe1f86be 100755 --- a/reports/itemslost.pl +++ b/reports/itemslost.pl @@ -29,6 +29,7 @@ use Modern::Perl; use CGI qw ( -utf8 ); use Text::CSV_XS; +use Text::CSV::Encoded; use C4::Auth; use C4::Output; use C4::Biblio; @@ -64,7 +65,6 @@ if ( $op eq 'export' ) { my $csv_profile = Koha::CsvProfiles->find( $csv_profile_id ); die "There is no valid csv profile given" unless $csv_profile; - my $csv = Text::CSV_XS->new({'quote_char'=>'"','escape_char'=>'"','sep_char'=>$csv_profile->csv_separator,'binary'=>1}); my $csv_profile_content = $csv_profile->content; my ( @headers, @fields ); while ( $csv_profile_content =~ / @@ -93,11 +93,16 @@ if ( $op eq 'export' ) { } push @rows, \@row; } - my $content = join( $csv_profile->csv_separator, @headers ) . "\n"; + my $delimiter = $csv_profile->csv_separator; + $delimiter = "\t" if $delimiter eq "\\t"; + + my $csv = Text::CSV::Encoded->new({ encoding_out => 'UTF-8', sep_char => $delimiter}); + $csv or die "Text::CSV::Encoded->new({binary => 1}) FAILED: " . Text::CSV::Encoded->error_diag(); + $csv->combine(@headers); + my $content .= Encode::decode('UTF-8', $csv->string()) . "\n"; for my $row ( @rows ) { $csv->combine(@$row); - my $string = $csv->string; - $content .= $string . "\n"; + $content .= $csv->string . "\n"; } print $query->header( -type => 'text/csv', -- 2.39.5