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

(-)a/acqui/lateorders-export.pl (-2 / +3 lines)
Lines 17-22 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
use CGI qw ( -utf8 );
19
use CGI qw ( -utf8 );
20
use Encode;
20
21
21
use C4::Auth;
22
use C4::Auth;
22
use C4::Acquisition;
23
use C4::Acquisition;
Lines 87-93 unless ( $csv_profile_id ) { Link Here
87
    print $input->header(
88
    print $input->header(
88
        -type       => 'text/csv',
89
        -type       => 'text/csv',
89
        -attachment => 'lateorders.csv',
90
        -attachment => 'lateorders.csv',
91
        -charset    => 'UTF-8',
90
    );
92
    );
91
    print $csv;
93
    print Encode::encode_utf8($csv);
92
    exit;
94
    exit;
93
}
95
}
94
- 

Return to bug 24163