Attachment #104252 for bug #24163

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





use Modern::Perl;
use CGI qw ( -utf8 );
use Encode;

use C4::Auth;
use C4::Acquisition;

    print $input->header(
        -type       => 'text/csv',
        -attachment => 'lateorders.csv',
        -charset    => 'UTF-8',
    );
    print Encode::encode_utf8($csv);
    exit;
}
- 

Return to bug 24163

Lines 17-22 Link Here

(-)a/acqui/lateorders-export.pl (-2 / +3 lines)
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	-