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:
parent
7cd84171ab
commit
2eea061ca3
|
|
@ -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;
|
||||
|
|
|
|||
|
|
@ -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);
|
||||
|
|
|
|||
Loading…
Reference in New Issue