View | Details | Raw Unified | Return to bug 8168
Collapse All | Expand All

(-)a/misc/cronjobs/overdue_notices.pl (-3 / +2 lines)
Lines 359-365 binmode( STDOUT, ':encoding(UTF-8)' ); Link Here
359
our $csv;       # the Text::CSV_XS object
359
our $csv;       # the Text::CSV_XS object
360
our $csv_fh;    # the filehandle to the CSV file.
360
our $csv_fh;    # the filehandle to the CSV file.
361
if ( defined $csvfilename ) {
361
if ( defined $csvfilename ) {
362
    my $sep_char = C4::Context->preference('delimiter') || ',';
362
    my $sep_char = C4::Context->preference('delimiter') || ';';
363
    $sep_char = "\t" if ($sep_char eq 'tabulation');
363
    $sep_char = "\t" if ($sep_char eq 'tabulation');
364
    $csv = Text::CSV_XS->new( { binary => 1 , sep_char => $sep_char } );
364
    $csv = Text::CSV_XS->new( { binary => 1 , sep_char => $sep_char } );
365
    if ( $csvfilename eq '' ) {
365
    if ( $csvfilename eq '' ) {
Lines 629-635 END_SQL Link Here
629
        # Generate the content of the csv with headers
629
        # Generate the content of the csv with headers
630
        my $content;
630
        my $content;
631
        if ( defined $csvfilename ) {
631
        if ( defined $csvfilename ) {
632
            my $delimiter = C4::Context->preference('delimiter') // ';';
632
            my $delimiter = C4::Context->preference('delimiter') || ';';
633
            $content = join($delimiter, qw(title name surname address1 address2 zipcode city country email itemcount itemsinfo due_date issue_date)) . "\n";
633
            $content = join($delimiter, qw(title name surname address1 address2 zipcode city country email itemcount itemsinfo due_date issue_date)) . "\n";
634
        }
634
        }
635
        else {
635
        else {
636
- 

Return to bug 8168