From c12aa9664ca71b38a0b570c71cbc0495ecfb9c0f Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Tue, 14 Feb 2017 16:21:45 +0000 Subject: [PATCH] Bug 18111: Fix import of default framework MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit Caused by bug 16035. Recreate the issue: Go to Home › Administration › MARC frameworks For the default framework: Actions > import It will not work Test plan: Confirm test plans from bug 16035 and bug 17389 still pass Confirm that the import for the default framework now works Signed-off-by: Josef Moravec Signed-off-by: Tomas Cohen Arazi Signed-off-by: Kyle M Hall --- admin/import_export_framework.pl | 19 ++++++++----------- .../prog/en/modules/admin/biblio_framework.tt | 2 +- 2 files changed, 9 insertions(+), 12 deletions(-) diff --git a/admin/import_export_framework.pl b/admin/import_export_framework.pl index 5a38a85955..60dcf7fe58 100755 --- a/admin/import_export_framework.pl +++ b/admin/import_export_framework.pl @@ -46,41 +46,38 @@ unless ($authenticated) { exit 0; } -my $frameworkcode = $input->param('frameworkcode') || 'default'; +my $frameworkcode = $input->param('frameworkcode') || ''; +my $framework_name = $frameworkcode || 'default'; my $action = $input->param('action') || 'export'; ## Exporting if ($action eq 'export' && $input->request_method() eq 'GET') { my $strXml = ''; - my $format = $input->param('type_export_' . $frameworkcode); - if ($frameworkcode eq 'default') { - ExportFramework('', \$strXml, $format); - } else { - ExportFramework($frameworkcode, \$strXml, $format); - } + my $format = $input->param('type_export_' . $framework_name); + ExportFramework($frameworkcode, \$strXml, $format); if ($format eq 'csv') { # CSV file # Correctly set the encoding to output plain text in UTF-8 binmode(STDOUT,':encoding(UTF-8)'); - print $input->header(-type => 'application/vnd.ms-excel', -attachment => 'export_' . $frameworkcode . '.csv'); + print $input->header(-type => 'application/vnd.ms-excel', -attachment => 'export_' . $framework_name . '.csv'); print $strXml; } elsif ($format eq 'excel') { # Excel-xml file - print $input->header(-type => 'application/excel', -attachment => 'export_' . $frameworkcode . '.xml'); + print $input->header(-type => 'application/excel', -attachment => 'export_' . $framework_name . '.xml'); print $strXml; } else { # ODS file my $strODS = ''; createODS($strXml, 'en', \$strODS); - print $input->header(-type => 'application/vnd.oasis.opendocument.spreadsheet', -attachment => 'export_' . $frameworkcode . '.ods'); + print $input->header(-type => 'application/vnd.oasis.opendocument.spreadsheet', -attachment => 'export_' . $framework_name . '.ods'); print $strODS; } ## Importing } elsif ($input->request_method() eq 'POST') { my $ok = -1; - my $fieldname = 'file_import_' . $frameworkcode; + my $fieldname = 'file_import_' . $framework_name; my $filename = $input->param($fieldname); # upload the input file if ($filename && $filename =~ /\.(csv|ods|xml)$/i) { diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/biblio_framework.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/admin/biblio_framework.tt index 4edc86188f..20efbc1bb4 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/biblio_framework.tt +++ b/koha-tmpl/intranet-tmpl/prog/en/modules/admin/biblio_framework.tt @@ -189,7 +189,7 @@