From 859620ef1b98ffcd981206922b826b6daac0c70a Mon Sep 17 00:00:00 2001 From: =?UTF-8?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 --- misc/cronjobs/overdue_notices.pl | 1 + 1 files changed, 1 insertions(+), 0 deletions(-) diff --git a/misc/cronjobs/overdue_notices.pl b/misc/cronjobs/overdue_notices.pl index 5646efc..10eb211 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; -- 1.7.5.4