[Koha-patches] [PATCH] (bug #3573) use delimiter syspref generating overdues csv
Nahuel ANGELINETTI
nahuel.angelinetti at biblibre.com
Wed Sep 2 17:11:39 CEST 2009
---
misc/cronjobs/overdue_notices.pl | 3 ++-
1 files changed, 2 insertions(+), 1 deletions(-)
diff --git a/misc/cronjobs/overdue_notices.pl b/misc/cronjobs/overdue_notices.pl
index 1312db9..e205e1e 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 {
--
1.6.0.4
More information about the Koha-patches
mailing list