@@ -, +, @@ Example: aqorders.quantity|aqordres.listprice|Title=biblio.title --- C4/Acquisition.pm | 4 +++- serials/lateissues-export.pl | 5 ++++- 2 files changed, 7 insertions(+), 2 deletions(-) --- a/C4/Acquisition.pm +++ a/C4/Acquisition.pm @@ -276,7 +276,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 =~ / --- a/serials/lateissues-export.pl +++ a/serials/lateissues-export.pl @@ -35,10 +35,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 }); --