3 # Copyright 2009-2010 BibLibre SARL
5 # This file is part of Koha.
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
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.
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.
22 #use warnings; FIXME - Bug 2505
26 use vars qw($VERSION @ISA @EXPORT);
29 # set the version for version checking
30 $VERSION = 3.07.00.049;
44 C4::Contract - Koha functions for dealing with bookseller contracts.
52 The functions in this module deal with contracts. They allow to
53 add a new contract, to modify it or to get some informations around
61 $contractlist = GetContracts({
62 booksellerid => $booksellerid,
63 activeonly => $activeonly
66 Looks up the contracts that belong to a bookseller
68 Returns a list of contracts
72 =item C<$booksellerid> is the "id" field in the "aqbooksellers" table.
74 =item C<$activeonly> if exists get only contracts that are still active.
82 if( $filters->{activeonly} ) {
83 $filters->{contractenddate} = {'>=' => \'now()'};
84 delete $filters->{activeonly};
87 my $rs = Koha::Database->new()->schema->resultset('Aqcontract');
88 $rs = $rs->search($filters);
89 $rs->result_class('DBIx::Class::ResultClass::HashRefInflator');
95 $contract = GetContract( { contractnumber => $contractnumber } );
97 Looks up the contract that has PRIMKEY (contractnumber) value $contractID
105 my $contractnumber = $params->{contractnumber};
107 my $contracts = GetContracts({
108 contractnumber => $contractnumber,
110 return $contracts->[0];
115 return unless($contract->{booksellerid});
117 my $rs = Koha::Database->new()->schema->resultset('Aqcontract');
118 return $rs->create($contract)->id;
123 my $result = Koha::Database->new()->schema->resultset('Aqcontract')->find($contract);
124 return unless($result);
126 $result = $result->update($contract);
127 return $result->in_storage;
132 return unless($contract->{contractnumber});
134 my $result = Koha::Database->new()->schema->resultset('Aqcontract')->find($contract);
135 return unless($result);
137 eval { $result->delete };
138 return !( $result->in_storage );
147 Koha Development Team <http://koha-community.org/>