diff --git a/C4/Csv.pm b/C4/Csv.pm deleted file mode 100644 index 2cd6430cdf..0000000000 --- a/C4/Csv.pm +++ /dev/null @@ -1,54 +0,0 @@ -package C4::Csv; - -# Copyright 2008 BibLibre -# -# 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 3 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, see . -# -# - -#use strict; -#use warnings; FIXME - Bug 2505 - -use C4::Context; -use vars qw(@ISA @EXPORT); - - -@ISA = qw(Exporter); - -# only export API methods - -@EXPORT = qw( - &GetMarcFieldsForCsv -); - - -# Returns fields to extract for the given csv profile -sub GetMarcFieldsForCsv { - - my ($id) = @_; - my $dbh = C4::Context->dbh; - my $query = "SELECT content FROM export_format WHERE export_format_id=?"; - - $sth = $dbh->prepare($query); - $sth->execute($id); - - return ($sth->fetchrow_hashref)->{content}; - - -} - - -1; diff --git a/C4/Record.pm b/C4/Record.pm index dbbde57935..440b48e924 100644 --- a/C4/Record.pm +++ b/C4/Record.pm @@ -29,7 +29,6 @@ use MARC::File::XML; # marc2marcxml, marcxml2marc, changeEncoding use Biblio::EndnoteStyle; use Unicode::Normalize; # _entity_encode use C4::Biblio; #marc2bibtex -use C4::Csv; #marc2csv use C4::Koha; #marc2csv use C4::XSLT (); use YAML; #marcrecords2csv diff --git a/basket/downloadcart.pl b/basket/downloadcart.pl index 0690da5c69..f5cec95e97 100755 --- a/basket/downloadcart.pl +++ b/basket/downloadcart.pl @@ -28,7 +28,6 @@ use C4::Items; use C4::Output; use C4::Record; use C4::Ris; -use C4::Csv; use Koha::CsvProfiles; diff --git a/misc/export_records.pl b/misc/export_records.pl index 2d24569211..3236a4f8e0 100755 --- a/misc/export_records.pl +++ b/misc/export_records.pl @@ -24,7 +24,6 @@ use Pod::Usage; use C4::Auth; use C4::Context; -use C4::Csv; use C4::Record; use Koha::Biblioitems; diff --git a/opac/opac-downloadcart.pl b/opac/opac-downloadcart.pl index ba4d4b2a80..6c374cd18e 100755 --- a/opac/opac-downloadcart.pl +++ b/opac/opac-downloadcart.pl @@ -28,7 +28,6 @@ use C4::Items; use C4::Output; use C4::Record; use C4::Ris; -use C4::Csv; use Koha::CsvProfiles; diff --git a/opac/opac-downloadshelf.pl b/opac/opac-downloadshelf.pl index 8413e75434..1123f91de4 100755 --- a/opac/opac-downloadshelf.pl +++ b/opac/opac-downloadshelf.pl @@ -28,7 +28,6 @@ use C4::Items; use C4::Output; use C4::Record; use C4::Ris; -use C4::Csv; use Koha::CsvProfiles; use Koha::Virtualshelves; diff --git a/serials/claims.pl b/serials/claims.pl index e3a33857b7..97f52aecc8 100755 --- a/serials/claims.pl +++ b/serials/claims.pl @@ -27,9 +27,9 @@ use C4::Context; use C4::Letters; use C4::Branch; # GetBranches GetBranchesLoop use C4::Koha qw( GetAuthorisedValues ); + use Koha::AdditionalField; use Koha::CsvProfiles; -use C4::Csv; my $input = CGI->new; diff --git a/serials/lateissues-export.pl b/serials/lateissues-export.pl index e38f6bc1a2..cc23ddc0c9 100755 --- a/serials/lateissues-export.pl +++ b/serials/lateissues-export.pl @@ -22,7 +22,6 @@ use C4::Serials; use C4::Acquisition; use C4::Output; use C4::Context; -use C4::Csv; use Koha::CsvProfiles; diff --git a/t/db_dependent/Csv.t b/t/db_dependent/Csv.t deleted file mode 100755 index be42e8a916..0000000000 --- a/t/db_dependent/Csv.t +++ /dev/null @@ -1,67 +0,0 @@ -#!/usr/bin/perl - -use strict; -use warnings; - -use Test::More tests => 10; -use Test::Deep; - -use C4::Context; -BEGIN { - use_ok('C4::Csv'); -} - -my $dbh = C4::Context->dbh; -$dbh->{AutoCommit} = 0; -$dbh->{RaiseError} = 1; - -$dbh->do('DELETE FROM export_format'); - -my $sth = $dbh->prepare(q{ - INSERT INTO export_format (profile, description, content, type) - VALUES (?, ?, ?, ?) -}); -$sth->execute('MARC', 'MARC profile', '245$a', 'marc'); -$sth->execute('SQL', 'SQL profile', 'borrowers.surname', 'sql'); - -my $all_profiles = C4::Csv::GetCsvProfiles(); -is(@$all_profiles, 2, 'test getting all CSV profiles'); - -my $sql_profiles = C4::Csv::GetCsvProfiles('sql'); -is(@$sql_profiles, 1, 'test getting SQL CSV profiles'); -is($sql_profiles->[0]->{profile}, 'SQL', '... and got the right one'); -my $marc_profiles = C4::Csv::GetCsvProfiles('marc'); -is(@$marc_profiles, 1, 'test getting MARC CSV profiles'); -is($marc_profiles->[0]->{profile}, 'MARC', '... and got the right one'); - -my $id = C4::Csv::GetCsvProfileId('MARC'); -my $profile = C4::Csv::GetCsvProfile($id); -is($profile->{profile}, 'MARC', 'retrieved profile by ID'); - -is(C4::Csv::GetCsvProfile(), undef, 'test getting CSV profile but not supplying ID'); - -cmp_deeply( - C4::Csv::GetCsvProfilesLoop(), - [ - { - export_format_id => ignore(), - profile => 'MARC', - }, - { - export_format_id => ignore(), - profile => 'SQL', - }, - ], - 'test getting profile loop' -); - -cmp_deeply( - C4::Csv::GetCsvProfilesLoop('marc'), - [ - { - export_format_id => ignore(), - profile => 'MARC', - }, - ], - 'test getting profile loop for one type' -); diff --git a/tools/export.pl b/tools/export.pl index 35b4f2ca31..850c0cee9c 100755 --- a/tools/export.pl +++ b/tools/export.pl @@ -22,7 +22,6 @@ use MARC::File::XML; use List::MoreUtils qw(uniq); use C4::Auth; use C4::Branch; # GetBranches -use C4::Csv; use C4::Koha; # GetItemTypes use C4::Output; diff --git a/virtualshelves/downloadshelf.pl b/virtualshelves/downloadshelf.pl index 3db362aa5b..4d1bde2854 100755 --- a/virtualshelves/downloadshelf.pl +++ b/virtualshelves/downloadshelf.pl @@ -28,7 +28,6 @@ use C4::Items; use C4::Output; use C4::Record; use C4::Ris; -use C4::Csv; use Koha::CsvProfiles; use Koha::Virtualshelves; diff --git a/virtualshelves/shelves.pl b/virtualshelves/shelves.pl index 6a627501ef..100af44d82 100755 --- a/virtualshelves/shelves.pl +++ b/virtualshelves/shelves.pl @@ -21,7 +21,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth; use C4::Biblio; -use C4::Csv; use C4::Koha; use C4::Items; use C4::Members;