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

(-)a/misc/cronjobs/overdue_notices.pl (-2 / +1 lines)
Lines 419-425 if ( defined $csvfilename ) { Link Here
419
    if ( $csvfilename eq '' ) {
419
    if ( $csvfilename eq '' ) {
420
        $csv_fh = *STDOUT;
420
        $csv_fh = *STDOUT;
421
    } else {
421
    } else {
422
        open $csv_fh, ">", $csvfilename or die "unable to open $csvfilename: $!";
422
        open $csv_fh, ">:encoding(UTF-8)", $csvfilename or die "unable to open $csvfilename: $!";
423
    }
423
    }
424
    if ( $csv->combine(qw(name surname address1 address2 zipcode city country email phone cardnumber itemcount itemsinfo branchname letternumber)) ) {
424
    if ( $csv->combine(qw(name surname address1 address2 zipcode city country email phone cardnumber itemcount itemsinfo branchname letternumber)) ) {
425
        print $csv_fh $csv->string, "\n";
425
        print $csv_fh $csv->string, "\n";
426
- 

Return to bug 39023