Lines 46-59
unless ($authenticated) {
Link Here
|
46 |
exit 0; |
46 |
exit 0; |
47 |
} |
47 |
} |
48 |
|
48 |
|
49 |
my $frameworkcode = $input->param('frameworkcode') || ''; |
49 |
my $frameworkcode = $input->param('frameworkcode') || 'default'; |
50 |
my $action = $input->param('action') || 'export'; |
50 |
my $action = $input->param('action') || 'export'; |
51 |
|
51 |
|
52 |
## Exporting |
52 |
## Exporting |
53 |
if ($action eq 'export' && $input->request_method() eq 'GET') { |
53 |
if ($action eq 'export' && $input->request_method() eq 'GET') { |
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 |
if ($frameworkcode == 'default') { |
|
|
57 |
ExportFramework('', \$strXml, $format); |
58 |
} else { |
59 |
ExportFramework($frameworkcode, \$strXml, $format); |
60 |
} |
57 |
|
61 |
|
58 |
if ($format eq 'csv') { |
62 |
if ($format eq 'csv') { |
59 |
# CSV file |
63 |
# CSV file |
60 |
- |
|
|