|
Lines 40-47
unless ($auth_status eq 'ok') {
Link Here
|
| 40 |
exit 0; |
40 |
exit 0; |
| 41 |
} |
41 |
} |
| 42 |
|
42 |
|
| 43 |
my $framework_name = $input->param('frameworkcode') || 'default'; |
43 |
my $frameworkcode = $input->param('frameworkcode') || 'default'; |
| 44 |
my $frameworkcode = ($framework_name eq 'default') ? q{} : $framework_name; |
|
|
| 45 |
my $action = $input->param('action') || 'export'; |
44 |
my $action = $input->param('action') || 'export'; |
| 46 |
|
45 |
|
| 47 |
## Exporting |
46 |
## Exporting |
|
Lines 59-77
if ($action eq 'export' && $input->request_method() eq 'GET') {
Link Here
|
| 59 |
|
58 |
|
| 60 |
# Correctly set the encoding to output plain text in UTF-8 |
59 |
# Correctly set the encoding to output plain text in UTF-8 |
| 61 |
binmode(STDOUT,':encoding(UTF-8)'); |
60 |
binmode(STDOUT,':encoding(UTF-8)'); |
| 62 |
print $input->header(-type => 'application/vnd.ms-excel', -attachment => 'export_' . $framework_name . '.csv'); |
61 |
print $input->header(-type => 'application/vnd.ms-excel', -attachment => 'export_' . $frameworkcode . '.csv'); |
| 63 |
print $strXml; |
62 |
print $strXml; |
| 64 |
} else { |
63 |
} else { |
| 65 |
# ODS file |
64 |
# ODS file |
| 66 |
my $strODS = ''; |
65 |
my $strODS = ''; |
| 67 |
createODS($strXml, 'en', \$strODS); |
66 |
createODS($strXml, 'en', \$strODS); |
| 68 |
print $input->header(-type => 'application/vnd.oasis.opendocument.spreadsheet', -attachment => 'export_' . $framework_name . '.ods'); |
67 |
print $input->header(-type => 'application/vnd.oasis.opendocument.spreadsheet', -attachment => 'export_' . $frameworkcode . '.ods'); |
| 69 |
print $strODS; |
68 |
print $strODS; |
| 70 |
} |
69 |
} |
| 71 |
## Importing |
70 |
## Importing |
| 72 |
} elsif ($input->request_method() eq 'POST') { |
71 |
} elsif ($input->request_method() eq 'POST') { |
| 73 |
my $ok = -1; |
72 |
my $ok = -1; |
| 74 |
my $fieldname = 'file_import_' . $framework_name; |
73 |
my $fieldname = 'file_import_' . $frameworkcode; |
| 75 |
my $filename = $input->param($fieldname); |
74 |
my $filename = $input->param($fieldname); |
| 76 |
# upload the input file |
75 |
# upload the input file |
| 77 |
if ($filename && $filename =~ /\.(csv|ods)$/i) { |
76 |
if ($filename && $filename =~ /\.(csv|ods)$/i) { |
| 78 |
- |
|
|