1 package C4::Bookseller;
3 # Copyright 2000-2002 Katipo Communications
4 # Copyright 2010 PTFS Europe
6 # This file is part of Koha.
8 # Koha is free software; you can redistribute it and/or modify it under the
9 # terms of the GNU General Public License as published by the Free Software
10 # Foundation; either version 2 of the License, or (at your option) any later
13 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
14 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
15 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
17 # You should have received a copy of the GNU General Public License along
18 # with Koha; if not, write to the Free Software Foundation, Inc.,
19 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
24 use base qw( Exporter );
26 # set the version for version checking
29 GetBookSeller GetBooksellersWithLateOrders GetBookSellerFromId
37 C4::Bookseller - Koha functions for dealing with booksellers.
45 The functions in this module deal with booksellers. They allow to
46 add a new bookseller, to modify it or to get some informations around
53 @results = GetBookSeller($searchstring);
55 Looks up a book seller. C<$searchstring> may be either a book seller
56 ID, or a string to look for in the book seller's name.
58 C<@results> is an array of hash_refs whose keys are the fields of of the
59 aqbooksellers table in the Koha database.
64 my $searchstring = shift;
65 $searchstring = q{%} . $searchstring . q{%};
67 'select aqbooksellers.*, count(*) as basketcount from aqbooksellers left join aqbasket '
68 . 'on aqbasket.booksellerid = aqbooksellers.id where name like ? group by aqbooksellers.id order by name';
70 my $dbh = C4::Context->dbh;
71 my $sth = $dbh->prepare($query);
72 $sth->execute($searchstring);
73 my $resultset_ref = $sth->fetchall_arrayref( {} );
74 return @{$resultset_ref};
77 sub GetBookSellerFromId {
78 my $id = shift or return;
79 my $dbh = C4::Context->dbh;
81 $dbh->selectrow_hashref( 'SELECT * FROM aqbooksellers WHERE id = ?',
84 ( $vendor->{basketcount} ) = $dbh->selectrow_array(
85 'SELECT count(*) FROM aqbasket where booksellerid = ?',
91 #-----------------------------------------------------------------#
93 =head2 GetBooksellersWithLateOrders
95 %results = GetBooksellersWithLateOrders($delay);
97 Searches for suppliers with late orders.
101 sub GetBooksellersWithLateOrders {
103 my $dbh = C4::Context->dbh;
105 # TODO delay should be verified
107 "SELECT DISTINCT aqbasket.booksellerid, aqbooksellers.name
108 FROM aqorders LEFT JOIN aqbasket ON aqorders.basketno=aqbasket.basketno
109 LEFT JOIN aqbooksellers ON aqbasket.booksellerid = aqbooksellers.id
110 WHERE (closedate < DATE_SUB(CURDATE( ),INTERVAL $delay DAY)
111 AND (datereceived = '' OR datereceived IS NULL))";
113 my $sth = $dbh->prepare($query_string);
116 while ( my ( $id, $name ) = $sth->fetchrow ) {
117 $supplierlist{$id} = $name;
120 return %supplierlist;
123 #--------------------------------------------------------------------#
127 $id = &AddBookseller($bookseller);
129 Creates a new bookseller. C<$bookseller> is a reference-to-hash whose
130 keys are the fields of the aqbooksellers table in the Koha database.
131 All fields must be present.
133 Returns the ID of the newly-created bookseller.
139 my $dbh = C4::Context->dbh;
141 INSERT INTO aqbooksellers
143 name, address1, address2, address3, address4,
144 postal, phone, accountnumber, fax, url,
146 contpos, contphone, contfax, contaltphone, contemail,
147 contnotes, active, listprice, invoiceprice, gstreg,
148 listincgst,invoiceincgst, gstrate, discount,
151 VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?) |
153 my $sth = $dbh->prepare($query);
155 $data->{'name'}, $data->{'address1'},
156 $data->{'address2'}, $data->{'address3'},
157 $data->{'address4'}, $data->{'postal'},
158 $data->{'phone'}, $data->{'accountnumber'},
160 $data->{'url'}, $data->{'contact'},
161 $data->{'contpos'}, $data->{'contphone'},
162 $data->{'contfax'}, $data->{'contaltphone'},
163 $data->{'contemail'}, $data->{'contnotes'},
164 $data->{'active'}, $data->{'listprice'},
165 $data->{'invoiceprice'}, $data->{'gstreg'},
166 $data->{'listincgst'}, $data->{'invoiceincgst'},
168 $data->{'discount'}, $data->{'notes'}
171 # return the id of this new supplier
172 return $dbh->{'mysql_insertid'};
175 #-----------------------------------------------------------------#
179 ModBookseller($bookseller);
181 Updates the information for a given bookseller. C<$bookseller> is a
182 reference-to-hash whose keys are the fields of the aqbooksellers table
183 in the Koha database. It must contain entries for all of the fields.
184 The entry to modify is determined by C<$bookseller-E<gt>{id}>.
186 The easiest way to get all of the necessary fields is to look up a
187 book seller with C<&GetBookseller>, modify what's necessary, then call
188 C<&ModBookseller> with the result.
194 my $dbh = C4::Context->dbh;
195 my $query = 'UPDATE aqbooksellers
196 SET name=?,address1=?,address2=?,address3=?,address4=?,
197 postal=?,phone=?,accountnumber=?,fax=?,url=?,contact=?,contpos=?,
198 contphone=?,contfax=?,contaltphone=?,contemail=?,
199 contnotes=?,active=?,listprice=?, invoiceprice=?,
200 gstreg=?,listincgst=?,invoiceincgst=?,
201 discount=?,notes=?,gstrate=?
203 my $sth = $dbh->prepare($query);
205 $data->{'name'}, $data->{'address1'},
206 $data->{'address2'}, $data->{'address3'},
207 $data->{'address4'}, $data->{'postal'},
208 $data->{'phone'}, $data->{'accountnumber'},
210 $data->{'url'}, $data->{'contact'},
211 $data->{'contpos'}, $data->{'contphone'},
212 $data->{'contfax'}, $data->{'contaltphone'},
213 $data->{'contemail'}, $data->{'contnotes'},
214 $data->{'active'}, $data->{'listprice'},
215 $data->{'invoiceprice'}, $data->{'gstreg'},
216 $data->{'listincgst'}, $data->{'invoiceincgst'},
217 $data->{'discount'}, $data->{'notes'},
218 $data->{'gstrate'}, $data->{'id'}
225 DelBookseller($booksellerid);
227 delete the supplier record identified by $booksellerid
228 This sub assumes it is called only if the supplier has no order.
234 my $dbh = C4::Context->dbh;
235 my $sth = $dbh->prepare('DELETE FROM aqbooksellers WHERE id=?');
246 Koha Development Team <http://koha-community.org/>