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 2eea061ca3)

Signed-off-by: Lucas Gass <lucas@bywatersolutions.com>
This commit is contained in:
Katrin Fischer 2022-07-16 11:23:54 +00:00 committed by Lucas Gass
parent 9af01ea2e3
commit ed114537d3
2 changed files with 2 additions and 2 deletions

View file

@ -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;

View file

@ -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);