From 478c2b139ceb58bc619e7c8a5270e499c870dbcf Mon Sep 17 00:00:00 2001 From: =?utf8?q?Fr=C3=A9d=C3=A9rick=20Capovilla?= Date: Mon, 21 Nov 2011 12:28:25 -0500 Subject: [PATCH] Bug 7251 : Corrects a problem in overdue_notices.pl when delimiter is set to tabulation Signed-off-by: Chris Cormack Signed-off-by: Paul Poulain checked that others values for the separator are OK = it is (space, semicolon,... see syspref "delimiter") --- misc/cronjobs/overdue_notices.pl | 1 + 1 file changed, 1 insertion(+) diff --git a/misc/cronjobs/overdue_notices.pl b/misc/cronjobs/overdue_notices.pl index 5347f69374..21e7dc3dd5 100755 --- a/misc/cronjobs/overdue_notices.pl +++ b/misc/cronjobs/overdue_notices.pl @@ -330,6 +330,7 @@ our $csv; # the Text::CSV_XS object our $csv_fh; # the filehandle to the CSV file. if ( defined $csvfilename ) { my $sep_char = C4::Context->preference('delimiter') || ','; + $sep_char = "\t" if ($sep_char eq 'tabulation'); $csv = Text::CSV_XS->new( { binary => 1 , sep_char => $sep_char } ); if ( $csvfilename eq '' ) { $csv_fh = *STDOUT; -- 2.39.5