Lines 54-61
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 |
|
57 |
if ($format eq 'csv') { |
58 |
if ($format eq 'csv') { |
58 |
# CSV file |
59 |
# CSV file |
|
|
60 |
|
61 |
# Correctly set the encoding to output plain text in UTF-8 |
62 |
binmode(STDOUT,':encoding(UTF-8)'); |
59 |
print $input->header(-type => 'application/vnd.ms-excel', -attachment => 'export_' . $frameworkcode . '.csv'); |
63 |
print $input->header(-type => 'application/vnd.ms-excel', -attachment => 'export_' . $frameworkcode . '.csv'); |
60 |
print $strXml; |
64 |
print $strXml; |
61 |
} elsif ($format eq 'excel') { |
65 |
} elsif ($format eq 'excel') { |
62 |
- |
|
|