+++ /dev/null
-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 <http://www.gnu.org/licenses>.
-#
-#
-
-#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;
+++ /dev/null
-#!/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'
-);