|
Lines 54-59
if ($action eq 'export' && $input->request_method() eq 'GET') {
Link Here
|
| 54 |
my $strXml = ''; |
54 |
my $strXml = ''; |
| 55 |
my $format = $input->param('type_export_' . $frameworkcode); |
55 |
my $format = $input->param('type_export_' . $frameworkcode); |
| 56 |
ExportFramework($frameworkcode, \$strXml, $format); |
56 |
ExportFramework($frameworkcode, \$strXml, $format); |
|
|
57 |
|
| 58 |
# Correctly set the encoding to output plain text in UTF-8 |
| 59 |
if ( $format eq 'csv' || |
| 60 |
$format eq 'sql' ) { |
| 61 |
binmode(STDOUT,':encoding(UTF-8)'); |
| 62 |
} |
| 63 |
|
| 57 |
if ($format eq 'csv') { |
64 |
if ($format eq 'csv') { |
| 58 |
# CSV file |
65 |
# CSV file |
| 59 |
print $input->header(-type => 'application/vnd.ms-excel', -attachment => 'export_' . $frameworkcode . '.csv'); |
66 |
print $input->header(-type => 'application/vnd.ms-excel', -attachment => 'export_' . $frameworkcode . '.csv'); |
| 60 |
- |
|
|