From 78a2b2cb1e0a06f14cdb1ecc08d096f13fdc020a Mon Sep 17 00:00:00 2001 From: Nahuel ANGELINETTI Date: Wed, 2 Sep 2009 17:09:21 +0200 Subject: [PATCH] (bug #3573) use delimiter syspref generating overdues csv Signed-off-by: Henri-Damien LAURENT --- misc/cronjobs/overdue_notices.pl | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/misc/cronjobs/overdue_notices.pl b/misc/cronjobs/overdue_notices.pl index 1312db953c..e205e1e31e 100755 --- a/misc/cronjobs/overdue_notices.pl +++ b/misc/cronjobs/overdue_notices.pl @@ -284,7 +284,8 @@ binmode( STDOUT, ":utf8" ); our $csv; # the Text::CSV_XS object our $csv_fh; # the filehandle to the CSV file. if ( defined $csvfilename ) { - $csv = Text::CSV_XS->new( { binary => 1 } ); + my $sep_char = C4::Context->preference('delimiter') || ','; + $csv = Text::CSV_XS->new( { binary => 1 , sep_char => $sep_char } ); if ( $csvfilename eq '' ) { $csv_fh = *STDOUT; } else { -- 2.39.5