From 7e9c50ecdab5e4332a3dc843160b7d813b1df996 Mon Sep 17 00:00:00 2001
From: Nahuel ANGELINETTI <nahuel.angelinetti@biblibre.com>
Date: Wed, 2 Sep 2009 17:38:38 +0200
Subject: [PATCH] (bug #3573) use delimiter syspref generating overdues csv

Signed-off-by: Galen Charlton <gmcharlt@gmail.com>
---
 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 831cdfc73b..5e7c190d13 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.2