From de8d2610379b1c144f1a366f79a5bfe276cf0281 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Fri, 20 Nov 2020 15:33:14 +0100 Subject: [PATCH] Bug 27045: Fix other exports --- C4/Acquisition.pm | 4 +++- serials/lateissues-export.pl | 5 ++++- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/C4/Acquisition.pm b/C4/Acquisition.pm index 2ac15473b4..f912aaf276 100644 --- a/C4/Acquisition.pm +++ b/C4/Acquisition.pm @@ -254,7 +254,9 @@ sub GetBasketAsCSV { my $csv_profile = Koha::CsvProfiles->find( $csv_profile_id ); Koha::Exceptions::ObjectNotFound->throw( '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 $delimiter = $csv_profile->csv_separator; + $delimiter = "\t" if $delimiter eq "\\t"; + my $csv = Text::CSV_XS->new({'quote_char'=>'"','escape_char'=>'"','sep_char'=>$delimiter,'binary'=>1}); my $csv_profile_content = $csv_profile->content; my ( @headers, @fields ); while ( $csv_profile_content =~ / diff --git a/serials/lateissues-export.pl b/serials/lateissues-export.pl index 7af3395d1b..676909a15b 100755 --- a/serials/lateissues-export.pl +++ b/serials/lateissues-export.pl @@ -36,10 +36,13 @@ my $csv_profile_id = $query->param('csv_profile'); my $csv_profile = Koha::CsvProfiles->find( $csv_profile_id ); die "There is no valid csv profile given" unless $csv_profile; +my $delimiter = $csv_profile->csv_separator; +$delimiter = "\t" if $delimiter eq "\\t"; + my $csv = Text::CSV_XS->new({ 'quote_char' => '"', 'escape_char' => '"', - 'sep_char' => $csv_profile->csv_separator, + 'sep_char' => $delimiter, 'binary' => 1 }); -- 2.20.1