From a05978b72f7707756744474282b4c8dc5a5c043e Mon Sep 17 00:00:00 2001
From: Katrin Fischer <katrin.fischer.83@web.de>
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 <katrin.fischer.83@web.de>

Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
(cherry picked from commit 2eea061ca30e4810b07ca2920bfe1e55762fab02)

Signed-off-by: Lucas Gass <lucas@bywatersolutions.com>
(cherry picked from commit ed114537d3a965bc5f636e4f138cdf35c2515d3b)
Signed-off-by: Arthur Suzuki <arthur.suzuki@biblibre.com>
(cherry picked from commit 6c47479066eae4d6c3c42aaeb6e2b7dc86d92ef4)
Signed-off-by: Victor Grousset/tuxayo <victor@tuxayo.net>
---
 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 8411e46847..0464ec78a5 100644
--- a/C4/Acquisition.pm
+++ b/C4/Acquisition.pm
@@ -314,7 +314,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 676909a15b..2a1ffd7e32 100755
--- a/serials/lateissues-export.pl
+++ b/serials/lateissues-export.pl
@@ -84,7 +84,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