File Coverage

File:C4/Contract.pm
Coverage:68.0%

linestmtbrancondsubtimecode
1package C4::Contract;
2
3# Copyright 2009-2010 BibLibre SARL
4#
5# This file is part of Koha.
6#
7# Koha is free software; you can redistribute it and/or modify it under the
8# terms of the GNU General Public License as published by the Free Software
9# Foundation; either version 2 of the License, or (at your option) any later
10# version.
11#
12# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
13# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
14# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
15#
16# You should have received a copy of the GNU General Public License along
17# with Koha; if not, write to the Free Software Foundation, Inc.,
18# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
19
20
2
2
2
2
582
6
82
use strict;
21#use warnings; FIXME - Bug 2505
22
2
2
2
2
192
4
776
use C4::SQLHelper qw(:all);
23
24
2
2
2
2
22
11
210
use vars qw($VERSION @ISA @EXPORT);
25
26BEGIN {
27        # set the version for version checking
28
2
2
15
        $VERSION = 3.2;
29
2
17
    require Exporter;
30
2
30
        @ISA = qw(Exporter);
31
2
231
        @EXPORT = qw(
32                &GetContract
33                &AddContract
34                &ModContract
35                &DelContract
36        );
37}
38
39 - 56
=head1 NAME

C4::Contract - Koha functions for dealing with bookseller contracts.

=head1 SYNOPSIS

use C4::Contract;

=head1 DESCRIPTION

The functions in this module deal with contracts. They allow to
add a new contract, to modify it or to get some informations around
a contract.

This module is just a wrapper for C4::SQLHelper functions, so take a look at
SQLHelper centralised documentation to know how to use the following subs.

=cut
57
58
0
0
sub GetContract { SearchInTable("aqcontract", shift); }
59
60
0
0
sub AddContract { InsertInTable("aqcontract", shift); }
61
62
0
0
sub ModContract { UpdateInTable("aqcontract", shift); }
63
64
0
0
sub DelContract { DeleteInTable("aqcontract", shift); }
65
661;
67