[Patches] [PATCH] Bug 7251 : Corrects a problem in overdue_notices.pl when
koha-patchbot at kohaaloha.com
koha-patchbot at kohaaloha.com
Fri Dec 2 08:50:02 NZDT 2011
From: =?UTF-8?q?Fr=C3=A9d=C3=A9rick=20Capovilla?= <frederick.capovilla at libeo.com>
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 <chrisc at catalyst.net.nz>
---
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
More information about the Patches
mailing list