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>
This commit is contained in:
Katrin Fischer 2022-07-16 11:23:54 +00:00 committed by Tomas Cohen Arazi
parent 7cd84171ab
commit 2eea061ca3
No known key found for this signature in database
GPG Key ID: 0A272EA1B2F3C15F
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);