|
Lines 34-39
if ($action eq 'export' && $input->request_method() eq 'GET') {
Link Here
|
| 34 |
my $strXml = ''; |
34 |
my $strXml = ''; |
| 35 |
my $format = $input->param('type_export_' . $frameworkcode); |
35 |
my $format = $input->param('type_export_' . $frameworkcode); |
| 36 |
ExportFramework($frameworkcode, \$strXml, $format); |
36 |
ExportFramework($frameworkcode, \$strXml, $format); |
|
|
37 |
|
| 38 |
# Correctly set the encoding to output plain text in UTF-8 |
| 39 |
if ( $format eq 'csv' || |
| 40 |
$format eq 'sql' ) { |
| 41 |
binmode(STDOUT,':encoding(UTF-8)'); |
| 42 |
} |
| 43 |
|
| 37 |
if ($format eq 'csv') { |
44 |
if ($format eq 'csv') { |
| 38 |
# CSV file |
45 |
# CSV file |
| 39 |
print $input->header(-type => 'application/vnd.ms-excel', -attachment => 'export_' . $frameworkcode . '.csv'); |
46 |
print $input->header(-type => 'application/vnd.ms-excel', -attachment => 'export_' . $frameworkcode . '.csv'); |
| 40 |
- |
|
|