@@ -, +, @@ --- C4/Acquisition.pm | 2 +- serials/lateissues-export.pl | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) --- a/C4/Acquisition.pm +++ a/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; --- a/serials/lateissues-export.pl +++ a/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); --