From b2cd350242a4d923f60b5e3553396e6928890c2c 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] Corrects a problem in overdue_notices.pl when delimiter is set to tabulation --- 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 df8339e..170076f 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.2.5