From 2eea061ca30e4810b07ca2920bfe1e55762fab02 Mon Sep 17 00:00:00 2001 From: Katrin Fischer Date: Sat, 16 Jul 2022 11:23:54 +0000 Subject: [PATCH] Bug 27045: (follow-up) Fix delimiter in header rows The header rows still showed \t because the newly defined variable wasn't used there. Signed-off-by: Katrin Fischer Signed-off-by: Nick Clemens Signed-off-by: Tomas Cohen Arazi --- C4/Acquisition.pm | 2 +- serials/lateissues-export.pl | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/C4/Acquisition.pm b/C4/Acquisition.pm index 830436bcaa..bf8a215573 100644 --- a/C4/Acquisition.pm +++ b/C4/Acquisition.pm @@ -311,7 +311,7 @@ sub GetBasketAsCSV { } push @rows, \@row; } - my $content = join( $csv_profile->csv_separator, @headers ) . "\n"; + my $content = join( $delimiter, @headers ) . "\n"; for my $row ( @rows ) { $csv->combine(@$row); my $string = $csv->string; diff --git a/serials/lateissues-export.pl b/serials/lateissues-export.pl index de09d4c58a..af83f2c6f6 100755 --- a/serials/lateissues-export.pl +++ b/serials/lateissues-export.pl @@ -83,7 +83,7 @@ print $query->header( -attachment => "serials-claims.csv", ); -print join( $csv_profile->csv_separator, @headers ) . "\n"; +print join( $delimiter, @headers ) . "\n"; for my $row ( @rows ) { $csv->combine(@$row); -- 2.39.5