Browse Source
Module to Import/Export a Framework structure to CSV/Excel-xml/ODS/SQL in Intranet Administration - MARC Frameworks section.
There are two new links: "Export" to export to a format; and "Import" to import from a file.
The data exported/imported is the one stored in the MySQL tables marc_tag_structure, marc_subfield_structure.
Exported works as follows:
1) CSV: As this format only allows one worksheet, the data from the tables is splitted with a row with #-# cells or with the
names of the fields of the next MySQL table. Each row has as much cells as fields has the MySQL table. The first row contains the
field names, the remaining holds the data.
2) Excel: Excel xml 2003 format. Each MySQL table has its own worksheet in the spreadsheet. Rows and cells data as CSV.
3) ODS: OpenDocument Spreadsheet compressed format, creates a temporary directory to generate the files needed to create the zip file.
Each MySQL table has its own worksheet in the spreadsheet. Rows and cells data as CSV.
4) SQL: Text file, the first row for each table is a delete and the remaining are inserts.
Importing reads the rows from the spreadsheet/text-file as follows:
1) CSV: Each row inserts or updates the associated MySQL table for this framework. At the end of the importing for a MySQL table, deletes the rows in the database that don't possess a correspondence with the spreadsheet.
2) Excel: Imports each worksheet to the associated MySQL table. Works as the CSV for each worksheet.
3) ODS: Creates a temporary directory to decompress and read the content.xml. This file has the data needed to import.
Works as the CSV for each worksheet.
4) Executes the SQL file.
If the file imported has a different frameworkcode that the framework importing, the framecode is changed along the process.
The Csv format will be the default.
It uses perl module Archive::Zip or zip/unzip system command to process ODS files.
To parse the sql files when importing it uses SQL::Statement or homemade parsing.
Signed-off-by: Nicole C. Engard <nengard@bywatersolutions.com>
Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
3.4.x
Salvador Zaragoza Rubio
13 years ago
committed by
Chris Cormack
Chris Cormack
4 changed files with 1627 additions and 0 deletions
File diff suppressed because it is too large
@ -0,0 +1,77 @@ |
|||
#!/usr/bin/perl |
|||
|
|||
# Copyright 2010-2011 MASmedios.com y Ministerio de Cultura |
|||
# |
|||
# This file is part of Koha. |
|||
# |
|||
# Koha is free software; you can redistribute it and/or modify it under the |
|||
# terms of the GNU General Public License as published by the Free Software |
|||
# Foundation; either version 2 of the License, or (at your option) any later |
|||
# version. |
|||
# |
|||
# Koha is distributed in the hope that it will be useful, but WITHOUT ANY |
|||
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR |
|||
# A PARTICULAR PURPOSE. See the GNU General Public License for more details. |
|||
# |
|||
# You should have received a copy of the GNU General Public License along |
|||
# with Koha; if not, write to the Free Software Foundation, Inc., |
|||
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. |
|||
|
|||
|
|||
use strict; |
|||
use warnings; |
|||
use CGI; |
|||
use C4::Context; |
|||
use C4::ImportExportFramework; |
|||
|
|||
my $input = new CGI; |
|||
|
|||
my $frameworkcode = $input->param('frameworkcode') || ''; |
|||
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); |
|||
ExportFramework($frameworkcode, \$strXml, $format); |
|||
if ($format eq 'csv') { |
|||
# CSV file |
|||
print $input->header(-type => 'application/vnd.ms-excel', -attachment => 'export_' . $frameworkcode . '.csv'); |
|||
print $strXml; |
|||
} elsif ($format eq 'sql') { |
|||
# SQL file |
|||
print $input->header(-type => 'text/plain', -attachment => 'export_' . $frameworkcode . '.sql'); |
|||
print $strXml; |
|||
} elsif ($format eq 'excel') { |
|||
# Excel-xml file |
|||
print $input->header(-type => 'application/excel', -attachment => 'export_' . $frameworkcode . '.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 $strODS; |
|||
} |
|||
## Importing |
|||
} elsif ($input->request_method() eq 'POST') { |
|||
my $ok = -1; |
|||
my $fieldname = 'file_import_' . $frameworkcode; |
|||
my $filename = $input->param($fieldname); |
|||
# upload the input file |
|||
if ($filename && $filename =~ /\.(csv|ods|xml|sql)$/i) { |
|||
my $extension = $1; |
|||
my $uploadFd = $input->upload($fieldname); |
|||
if ($uploadFd && !$input->cgi_error) { |
|||
my $tmpfilename = $input->tmpFileName($input->param($fieldname)); |
|||
$filename = $tmpfilename . '.' . $extension; # rename the tmp file with the extension |
|||
$ok = ImportFramework($filename, $frameworkcode, 1) if (rename($tmpfilename, $filename)); |
|||
} |
|||
} |
|||
if ($ok >= 0) { # If everything went ok go to the framework marc structure |
|||
print $input->redirect( -location => '/cgi-bin/koha/admin/marctagstructure.pl?frameworkcode=' . $frameworkcode); |
|||
} else { |
|||
# If something failed go to the list of frameworks and show message |
|||
print $input->redirect( -location => '/cgi-bin/koha/admin/biblio_framework.pl?error_import_export=' . $frameworkcode); |
|||
} |
|||
} |
|||
Loading…
Reference in new issue