1 package C4
::Acquisition
;
3 # Copyright 2000-2002 Katipo Communications
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.
26 use C4
::Dates
qw(format_date format_date_in_iso);
31 use C4
::SQLHelper
qw(InsertInTable);
32 use C4
::Bookseller
qw(GetBookSellerFromId);
33 use C4
::Templates
qw(gettemplate);
38 use vars
qw($VERSION @ISA @EXPORT);
41 # set the version for version checking
42 $VERSION = 3.07.00.049;
46 &GetBasket &NewBasket &CloseBasket &DelBasket &ModBasket
47 &GetBasketAsCSV &GetBasketGroupAsCSV
48 &GetBasketsByBookseller &GetBasketsByBasketgroup
49 &GetBasketsInfosByBookseller
53 &ModBasketgroup &NewBasketgroup &DelBasketgroup &GetBasketgroup &CloseBasketgroup
54 &GetBasketgroups &ReOpenBasketgroup
56 &NewOrder &DelOrder &ModOrder &GetPendingOrders &GetOrder &GetOrders &GetOrdersByBiblionumber
57 &GetOrderNumber &GetLateOrders &GetOrderFromItemnumber
58 &SearchOrder &GetHistory &GetRecentAcqui
59 &ModReceiveOrder &CancelReceipt &ModOrderBiblioitemNumber
61 &GetLastOrderNotReceivedFromSubscriptionid &GetLastOrderReceivedFromSubscriptionid
62 &NewOrderItem &ModOrderItem &ModItemOrder
64 &GetParcels &GetParcel
65 &GetContracts &GetContract
75 &GetItemnumbersFromOrder
85 sub GetOrderFromItemnumber
{
86 my ($itemnumber) = @_;
87 my $dbh = C4
::Context
->dbh;
90 SELECT
* from aqorders LEFT JOIN aqorders_items
91 ON
( aqorders
.ordernumber
= aqorders_items
.ordernumber
)
92 WHERE itemnumber
= ?
|;
94 my $sth = $dbh->prepare($query);
98 $sth->execute($itemnumber);
100 my $order = $sth->fetchrow_hashref;
105 # Returns the itemnumber(s) associated with the ordernumber given in parameter
106 sub GetItemnumbersFromOrder
{
107 my ($ordernumber) = @_;
108 my $dbh = C4
::Context
->dbh;
109 my $query = "SELECT itemnumber FROM aqorders_items WHERE ordernumber=?";
110 my $sth = $dbh->prepare($query);
111 $sth->execute($ordernumber);
114 while (my $order = $sth->fetchrow_hashref) {
115 push @tab, $order->{'itemnumber'};
129 C4::Acquisition - Koha functions for dealing with orders and acquisitions
137 The functions in this module deal with acquisitions, managing book
138 orders, basket and parcels.
142 =head2 FUNCTIONS ABOUT BASKETS
146 $aqbasket = &GetBasket($basketnumber);
148 get all basket informations in aqbasket for a given basket
150 B<returns:> informations for a given basket returned as a hashref.
156 my $dbh = C4
::Context
->dbh;
159 concat( b.firstname,' ',b.surname) AS authorisedbyname,
160 b.branchcode AS branch
162 LEFT JOIN borrowers b ON aqbasket.authorisedby=b.borrowernumber
165 my $sth=$dbh->prepare($query);
166 $sth->execute($basketno);
167 my $basket = $sth->fetchrow_hashref;
171 #------------------------------------------------------------#
175 $basket = &NewBasket( $booksellerid, $authorizedby, $basketname,
176 $basketnote, $basketbooksellernote, $basketcontractnumber, $deliveryplace, $billingplace );
178 Create a new basket in aqbasket table
182 =item C<$booksellerid> is a foreign key in the aqbasket table
184 =item C<$authorizedby> is the username of who created the basket
188 The other parameters are optional, see ModBasketHeader for more info on them.
193 my ( $booksellerid, $authorisedby, $basketname, $basketnote,
194 $basketbooksellernote, $basketcontractnumber, $deliveryplace,
195 $billingplace ) = @_;
196 my $dbh = C4
::Context
->dbh;
198 'INSERT INTO aqbasket (creationdate,booksellerid,authorisedby) '
199 . 'VALUES (now(),?,?)';
200 $dbh->do( $query, {}, $booksellerid, $authorisedby );
202 my $basket = $dbh->{mysql_insertid
};
203 $basketname ||= q{}; # default to empty strings
205 $basketbooksellernote ||= q{};
206 ModBasketHeader
( $basket, $basketname, $basketnote, $basketbooksellernote,
207 $basketcontractnumber, $booksellerid, $deliveryplace, $billingplace );
211 #------------------------------------------------------------#
215 &CloseBasket($basketno);
217 close a basket (becomes unmodifiable,except for recieves)
223 my $dbh = C4
::Context
->dbh;
229 my $sth = $dbh->prepare($query);
230 $sth->execute($basketno);
233 #------------------------------------------------------------#
235 =head3 GetBasketAsCSV
237 &GetBasketAsCSV($basketno);
239 Export a basket as CSV
241 $cgi parameter is needed for column name translation
246 my ($basketno, $cgi) = @_;
247 my $basket = GetBasket
($basketno);
248 my @orders = GetOrders
($basketno);
249 my $contract = GetContract
($basket->{'contractnumber'});
251 my $template = C4
::Templates
::gettemplate
("acqui/csv/basket.tmpl", "intranet", $cgi);
254 foreach my $order (@orders) {
255 my $bd = GetBiblioData
( $order->{'biblionumber'} );
257 contractname
=> $contract->{'contractname'},
258 ordernumber
=> $order->{'ordernumber'},
259 entrydate
=> $order->{'entrydate'},
260 isbn
=> $order->{'isbn'},
261 author
=> $bd->{'author'},
262 title
=> $bd->{'title'},
263 publicationyear
=> $bd->{'publicationyear'},
264 publishercode
=> $bd->{'publishercode'},
265 collectiontitle
=> $bd->{'collectiontitle'},
266 notes
=> $order->{'notes'},
267 quantity
=> $order->{'quantity'},
268 rrp
=> $order->{'rrp'},
269 deliveryplace
=> C4
::Branch
::GetBranchName
( $basket->{'deliveryplace'} ),
270 billingplace
=> C4
::Branch
::GetBranchName
( $basket->{'billingplace'} ),
273 contractname author title publishercode collectiontitle notes
274 deliveryplace billingplace
276 # Double the quotes to not be interpreted as a field end
277 $row->{$_} =~ s/"/""/g if $row->{$_};
283 if(defined $a->{publishercode
} and defined $b->{publishercode
}) {
284 $a->{publishercode
} cmp $b->{publishercode
};
288 $template->param(rows
=> \
@rows);
290 return $template->output;
294 =head3 GetBasketGroupAsCSV
298 &GetBasketGroupAsCSV($basketgroupid);
300 Export a basket group as CSV
302 $cgi parameter is needed for column name translation
308 sub GetBasketGroupAsCSV
{
309 my ($basketgroupid, $cgi) = @_;
310 my $baskets = GetBasketsByBasketgroup
($basketgroupid);
312 my $template = C4
::Templates
::gettemplate
('acqui/csv/basketgroup.tmpl', 'intranet', $cgi);
315 for my $basket (@
$baskets) {
316 my @orders = GetOrders
( $$basket{basketno
} );
317 my $contract = GetContract
( $$basket{contractnumber
} );
318 my $bookseller = GetBookSellerFromId
( $$basket{booksellerid
} );
319 my $basketgroup = GetBasketgroup
( $$basket{basketgroupid
} );
321 foreach my $order (@orders) {
322 my $bd = GetBiblioData
( $order->{'biblionumber'} );
324 clientnumber
=> $bookseller->{accountnumber
},
325 basketname
=> $basket->{basketname
},
326 ordernumber
=> $order->{ordernumber
},
327 author
=> $bd->{author
},
328 title
=> $bd->{title
},
329 publishercode
=> $bd->{publishercode
},
330 publicationyear
=> $bd->{publicationyear
},
331 collectiontitle
=> $bd->{collectiontitle
},
332 isbn
=> $order->{isbn
},
333 quantity
=> $order->{quantity
},
334 rrp
=> $order->{rrp
},
335 discount
=> $bookseller->{discount
},
336 ecost
=> $order->{ecost
},
337 notes
=> $order->{notes
},
338 entrydate
=> $order->{entrydate
},
339 booksellername
=> $bookseller->{name
},
340 bookselleraddress
=> $bookseller->{address1
},
341 booksellerpostal
=> $bookseller->{postal
},
342 contractnumber
=> $contract->{contractnumber
},
343 contractname
=> $contract->{contractname
},
344 basketgroupdeliveryplace
=> C4
::Branch
::GetBranchName
( $basketgroup->{deliveryplace
} ),
345 basketgroupbillingplace
=> C4
::Branch
::GetBranchName
( $basketgroup->{billingplace
} ),
346 basketdeliveryplace
=> C4
::Branch
::GetBranchName
( $basket->{deliveryplace
} ),
347 basketbillingplace
=> C4
::Branch
::GetBranchName
( $basket->{billingplace
} ),
350 basketname author title publishercode collectiontitle notes
351 booksellername bookselleraddress booksellerpostal contractname
352 basketgroupdeliveryplace basketgroupbillingplace
353 basketdeliveryplace basketbillingplace
355 # Double the quotes to not be interpreted as a field end
356 $row->{$_} =~ s/"/""/g if $row->{$_};
361 $template->param(rows
=> \
@rows);
363 return $template->output;
367 =head3 CloseBasketgroup
369 &CloseBasketgroup($basketgroupno);
375 sub CloseBasketgroup
{
376 my ($basketgroupno) = @_;
377 my $dbh = C4
::Context
->dbh;
378 my $sth = $dbh->prepare("
379 UPDATE aqbasketgroups
383 $sth->execute($basketgroupno);
386 #------------------------------------------------------------#
388 =head3 ReOpenBaskergroup($basketgroupno)
390 &ReOpenBaskergroup($basketgroupno);
396 sub ReOpenBasketgroup
{
397 my ($basketgroupno) = @_;
398 my $dbh = C4
::Context
->dbh;
399 my $sth = $dbh->prepare("
400 UPDATE aqbasketgroups
404 $sth->execute($basketgroupno);
407 #------------------------------------------------------------#
412 &DelBasket($basketno);
414 Deletes the basket that has basketno field $basketno in the aqbasket table.
418 =item C<$basketno> is the primary key of the basket in the aqbasket table.
425 my ( $basketno ) = @_;
426 my $query = "DELETE FROM aqbasket WHERE basketno=?";
427 my $dbh = C4
::Context
->dbh;
428 my $sth = $dbh->prepare($query);
429 $sth->execute($basketno);
433 #------------------------------------------------------------#
437 &ModBasket($basketinfo);
439 Modifies a basket, using a hashref $basketinfo for the relevant information, only $basketinfo->{'basketno'} is required.
443 =item C<$basketno> is the primary key of the basket in the aqbasket table.
450 my $basketinfo = shift;
451 my $query = "UPDATE aqbasket SET ";
453 foreach my $key (keys %$basketinfo){
454 if ($key ne 'basketno'){
455 $query .= "$key=?, ";
456 push(@params, $basketinfo->{$key} || undef );
459 # get rid of the "," at the end of $query
460 if (substr($query, length($query)-2) eq ', '){
465 $query .= "WHERE basketno=?";
466 push(@params, $basketinfo->{'basketno'});
467 my $dbh = C4
::Context
->dbh;
468 my $sth = $dbh->prepare($query);
469 $sth->execute(@params);
473 #------------------------------------------------------------#
475 =head3 ModBasketHeader
477 &ModBasketHeader($basketno, $basketname, $note, $booksellernote, $contractnumber, $booksellerid);
479 Modifies a basket's header.
483 =item C<$basketno> is the "basketno" field in the "aqbasket" table;
485 =item C<$basketname> is the "basketname" field in the "aqbasket" table;
487 =item C<$note> is the "note" field in the "aqbasket" table;
489 =item C<$booksellernote> is the "booksellernote" field in the "aqbasket" table;
491 =item C<$contractnumber> is the "contractnumber" (foreign) key in the "aqbasket" table.
493 =item C<$booksellerid> is the id (foreign) key in the "aqbooksellers" table for the vendor.
495 =item C<$deliveryplace> is the "deliveryplace" field in the aqbasket table.
497 =item C<$billingplace> is the "billingplace" field in the aqbasket table.
503 sub ModBasketHeader
{
504 my ($basketno, $basketname, $note, $booksellernote, $contractnumber, $booksellerid, $deliveryplace, $billingplace) = @_;
507 SET basketname
=?
, note
=?
, booksellernote
=?
, booksellerid
=?
, deliveryplace
=?
, billingplace
=?
511 my $dbh = C4
::Context
->dbh;
512 my $sth = $dbh->prepare($query);
513 $sth->execute($basketname, $note, $booksellernote, $booksellerid, $deliveryplace, $billingplace, $basketno);
515 if ( $contractnumber ) {
516 my $query2 ="UPDATE aqbasket SET contractnumber=? WHERE basketno=?";
517 my $sth2 = $dbh->prepare($query2);
518 $sth2->execute($contractnumber,$basketno);
524 #------------------------------------------------------------#
526 =head3 GetBasketsByBookseller
528 @results = &GetBasketsByBookseller($booksellerid, $extra);
530 Returns a list of hashes of all the baskets that belong to bookseller 'booksellerid'.
534 =item C<$booksellerid> is the 'id' field of the bookseller in the aqbooksellers table
536 =item C<$extra> is the extra sql parameters, can be
538 $extra->{groupby}: group baskets by column
539 ex. $extra->{groupby} = aqbasket.basketgroupid
540 $extra->{orderby}: order baskets by column
541 $extra->{limit}: limit number of results (can be helpful for pagination)
547 sub GetBasketsByBookseller
{
548 my ($booksellerid, $extra) = @_;
549 my $query = "SELECT * FROM aqbasket WHERE booksellerid=?";
551 if ($extra->{groupby
}) {
552 $query .= " GROUP by $extra->{groupby}";
554 if ($extra->{orderby
}){
555 $query .= " ORDER by $extra->{orderby}";
557 if ($extra->{limit
}){
558 $query .= " LIMIT $extra->{limit}";
561 my $dbh = C4
::Context
->dbh;
562 my $sth = $dbh->prepare($query);
563 $sth->execute($booksellerid);
564 my $results = $sth->fetchall_arrayref({});
569 =head3 GetBasketsInfosByBookseller
571 my $baskets = GetBasketsInfosByBookseller($supplierid);
573 Returns in a arrayref of hashref all about booksellers baskets, plus:
574 total_biblios: Number of distinct biblios in basket
575 total_items: Number of items in basket
576 expected_items: Number of non-received items in basket
580 sub GetBasketsInfosByBookseller
{
581 my ($supplierid, $allbaskets) = @_;
583 return unless $supplierid;
585 my $dbh = C4
::Context
->dbh;
588 SUM
(aqorders
.quantity
) AS total_items
,
589 COUNT
(DISTINCT aqorders
.biblionumber
) AS total_biblios
,
591 IF
(aqorders
.datereceived IS NULL
592 AND aqorders
.datecancellationprinted IS NULL
597 LEFT JOIN aqorders ON aqorders
.basketno
= aqbasket
.basketno
598 WHERE booksellerid
= ?
};
600 $query.=" AND (closedate IS NULL OR (aqorders.quantity > aqorders.quantityreceived AND datecancellationprinted IS NULL))";
602 $query.=" GROUP BY aqbasket.basketno";
604 my $sth = $dbh->prepare($query);
605 $sth->execute($supplierid);
606 return $sth->fetchall_arrayref({});
610 #------------------------------------------------------------#
612 =head3 GetBasketsByBasketgroup
614 $baskets = &GetBasketsByBasketgroup($basketgroupid);
616 Returns a reference to all baskets that belong to basketgroup $basketgroupid.
620 sub GetBasketsByBasketgroup
{
621 my $basketgroupid = shift;
623 SELECT
*, aqbasket
.booksellerid as booksellerid
625 LEFT JOIN aqcontract USING
(contractnumber
) WHERE basketgroupid
=?
627 my $dbh = C4
::Context
->dbh;
628 my $sth = $dbh->prepare($query);
629 $sth->execute($basketgroupid);
630 my $results = $sth->fetchall_arrayref({});
635 #------------------------------------------------------------#
637 =head3 NewBasketgroup
639 $basketgroupid = NewBasketgroup(\%hashref);
641 Adds a basketgroup to the aqbasketgroups table, and add the initial baskets to it.
643 $hashref->{'booksellerid'} is the 'id' field of the bookseller in the aqbooksellers table,
645 $hashref->{'name'} is the 'name' field of the basketgroup in the aqbasketgroups table,
647 $hashref->{'basketlist'} is a list reference of the 'id's of the baskets that belong to this group,
649 $hashref->{'billingplace'} is the 'billingplace' field of the basketgroup in the aqbasketgroups table,
651 $hashref->{'deliveryplace'} is the 'deliveryplace' field of the basketgroup in the aqbasketgroups table,
653 $hashref->{'freedeliveryplace'} is the 'freedeliveryplace' field of the basketgroup in the aqbasketgroups table,
655 $hashref->{'deliverycomment'} is the 'deliverycomment' field of the basketgroup in the aqbasketgroups table,
657 $hashref->{'closed'} is the 'closed' field of the aqbasketgroups table, it is false if 0, true otherwise.
662 my $basketgroupinfo = shift;
663 die "booksellerid is required to create a basketgroup" unless $basketgroupinfo->{'booksellerid'};
664 my $query = "INSERT INTO aqbasketgroups (";
666 foreach my $field (qw(name billingplace deliveryplace freedeliveryplace deliverycomment closed)) {
667 if ( defined $basketgroupinfo->{$field} ) {
668 $query .= "$field, ";
669 push(@params, $basketgroupinfo->{$field});
672 $query .= "booksellerid) VALUES (";
677 push(@params, $basketgroupinfo->{'booksellerid'});
678 my $dbh = C4
::Context
->dbh;
679 my $sth = $dbh->prepare($query);
680 $sth->execute(@params);
681 my $basketgroupid = $dbh->{'mysql_insertid'};
682 if( $basketgroupinfo->{'basketlist'} ) {
683 foreach my $basketno (@
{$basketgroupinfo->{'basketlist'}}) {
684 my $query2 = "UPDATE aqbasket SET basketgroupid=? WHERE basketno=?";
685 my $sth2 = $dbh->prepare($query2);
686 $sth2->execute($basketgroupid, $basketno);
689 return $basketgroupid;
692 #------------------------------------------------------------#
694 =head3 ModBasketgroup
696 ModBasketgroup(\%hashref);
698 Modifies a basketgroup in the aqbasketgroups table, and add the baskets to it.
700 $hashref->{'id'} is the 'id' field of the basketgroup in the aqbasketgroup table, this parameter is mandatory,
702 $hashref->{'name'} is the 'name' field of the basketgroup in the aqbasketgroups table,
704 $hashref->{'basketlist'} is a list reference of the 'id's of the baskets that belong to this group,
706 $hashref->{'billingplace'} is the 'billingplace' field of the basketgroup in the aqbasketgroups table,
708 $hashref->{'deliveryplace'} is the 'deliveryplace' field of the basketgroup in the aqbasketgroups table,
710 $hashref->{'freedeliveryplace'} is the 'freedeliveryplace' field of the basketgroup in the aqbasketgroups table,
712 $hashref->{'deliverycomment'} is the 'deliverycomment' field of the basketgroup in the aqbasketgroups table,
714 $hashref->{'closed'} is the 'closed' field of the aqbasketgroups table, it is false if 0, true otherwise.
719 my $basketgroupinfo = shift;
720 die "basketgroup id is required to edit a basketgroup" unless $basketgroupinfo->{'id'};
721 my $dbh = C4
::Context
->dbh;
722 my $query = "UPDATE aqbasketgroups SET ";
724 foreach my $field (qw(name billingplace deliveryplace freedeliveryplace deliverycomment closed)) {
725 if ( defined $basketgroupinfo->{$field} ) {
726 $query .= "$field=?, ";
727 push(@params, $basketgroupinfo->{$field});
732 $query .= " WHERE id=?";
733 push(@params, $basketgroupinfo->{'id'});
734 my $sth = $dbh->prepare($query);
735 $sth->execute(@params);
737 $sth = $dbh->prepare('UPDATE aqbasket SET basketgroupid = NULL WHERE basketgroupid = ?');
738 $sth->execute($basketgroupinfo->{'id'});
740 if($basketgroupinfo->{'basketlist'} && @
{$basketgroupinfo->{'basketlist'}}){
741 $sth = $dbh->prepare("UPDATE aqbasket SET basketgroupid=? WHERE basketno=?");
742 foreach my $basketno (@
{$basketgroupinfo->{'basketlist'}}) {
743 $sth->execute($basketgroupinfo->{'id'}, $basketno);
750 #------------------------------------------------------------#
752 =head3 DelBasketgroup
754 DelBasketgroup($basketgroupid);
756 Deletes a basketgroup in the aqbasketgroups table, and removes the reference to it from the baskets,
760 =item C<$basketgroupid> is the 'id' field of the basket in the aqbasketgroup table
767 my $basketgroupid = shift;
768 die "basketgroup id is required to edit a basketgroup" unless $basketgroupid;
769 my $query = "DELETE FROM aqbasketgroups WHERE id=?";
770 my $dbh = C4
::Context
->dbh;
771 my $sth = $dbh->prepare($query);
772 $sth->execute($basketgroupid);
776 #------------------------------------------------------------#
779 =head2 FUNCTIONS ABOUT ORDERS
781 =head3 GetBasketgroup
783 $basketgroup = &GetBasketgroup($basketgroupid);
785 Returns a reference to the hash containing all infermation about the basketgroup.
790 my $basketgroupid = shift;
791 die "basketgroup id is required to edit a basketgroup" unless $basketgroupid;
792 my $query = "SELECT * FROM aqbasketgroups WHERE id=?";
793 my $dbh = C4
::Context
->dbh;
794 my $sth = $dbh->prepare($query);
795 $sth->execute($basketgroupid);
796 my $result = $sth->fetchrow_hashref;
801 #------------------------------------------------------------#
803 =head3 GetBasketgroups
805 $basketgroups = &GetBasketgroups($booksellerid);
807 Returns a reference to the array of all the basketgroups of bookseller $booksellerid.
811 sub GetBasketgroups
{
812 my $booksellerid = shift;
813 die 'bookseller id is required to edit a basketgroup' unless $booksellerid;
814 my $query = 'SELECT * FROM aqbasketgroups WHERE booksellerid=? ORDER BY id DESC';
815 my $dbh = C4
::Context
->dbh;
816 my $sth = $dbh->prepare($query);
817 $sth->execute($booksellerid);
818 return $sth->fetchall_arrayref({});
821 #------------------------------------------------------------#
823 =head2 FUNCTIONS ABOUT ORDERS
827 #------------------------------------------------------------#
829 =head3 GetPendingOrders
831 $orders = &GetPendingOrders($supplierid,$grouped,$owner,$basketno,$ordernumber,$search,$ean);
833 Finds pending orders from the bookseller with the given ID. Ignores
834 completed and cancelled orders.
836 C<$booksellerid> contains the bookseller identifier
837 C<$owner> contains 0 or 1. 0 means any owner. 1 means only the list of orders entered by the user itself.
838 C<$grouped> is a boolean that, if set to 1 will group all order lines of the same basket
839 in a single result line
840 C<$orders> is a reference-to-array; each element is a reference-to-hash.
842 Used also by the filter in parcel.pl
849 These give the value of the corresponding field in the aqorders table
850 of the Koha database.
852 Results are ordered from most to least recent.
856 sub GetPendingOrders
{
857 my ($supplierid,$grouped,$owner,$basketno,$ordernumber,$search,$ean) = @_;
858 my $dbh = C4
::Context
->dbh;
860 SELECT ".($grouped?
"count(*),":"")."aqbasket.basketno,
861 surname,firstname,biblio.*,biblioitems.isbn,
862 aqbasket.closedate, aqbasket.creationdate, aqbasket.basketname,
865 LEFT JOIN aqbasket ON aqbasket.basketno=aqorders.basketno
866 LEFT JOIN borrowers ON aqbasket.authorisedby=borrowers.borrowernumber
867 LEFT JOIN biblio ON biblio.biblionumber=aqorders.biblionumber
868 LEFT JOIN biblioitems ON biblioitems.biblionumber=biblio.biblionumber
869 WHERE (quantity > quantityreceived OR quantityreceived is NULL)
870 AND datecancellationprinted IS NULL";
872 my $userenv = C4
::Context
->userenv;
873 if ( C4
::Context
->preference("IndependentBranches") ) {
874 if ( ($userenv) && ( $userenv->{flags
} != 1 ) ) {
875 $strsth .= " AND (borrowers.branchcode = ?
876 or borrowers.branchcode = '')";
877 push @query_params, $userenv->{branch
};
881 $strsth .= " AND aqbasket.booksellerid = ?";
882 push @query_params, $supplierid;
885 $strsth .= " AND (aqorders.ordernumber=?)";
886 push @query_params, $ordernumber;
889 $strsth .= " AND (biblio.title like ? OR biblio.author LIKE ? OR biblioitems.isbn like ?)";
890 push @query_params, ("%$search%","%$search%","%$search%");
893 $strsth .= " AND biblioitems.ean = ?";
894 push @query_params, $ean;
897 $strsth .= " AND aqbasket.basketno=? ";
898 push @query_params, $basketno;
901 $strsth .= " AND aqbasket.authorisedby=? ";
902 push @query_params, $userenv->{'number'};
904 $strsth .= " group by aqbasket.basketno" if $grouped;
905 $strsth .= " order by aqbasket.basketno";
906 my $sth = $dbh->prepare($strsth);
907 $sth->execute( @query_params );
908 my $results = $sth->fetchall_arrayref({});
913 #------------------------------------------------------------#
917 @orders = &GetOrders($basketnumber, $orderby);
919 Looks up the pending (non-cancelled) orders with the given basket
920 number. If C<$booksellerID> is non-empty, only orders from that seller
924 C<&basket> returns a two-element array. C<@orders> is an array of
925 references-to-hash, whose keys are the fields from the aqorders,
926 biblio, and biblioitems tables in the Koha database.
931 my ( $basketno, $orderby ) = @_;
932 my $dbh = C4
::Context
->dbh;
934 SELECT biblio.*,biblioitems.*,
939 LEFT JOIN aqbudgets ON aqbudgets.budget_id = aqorders.budget_id
940 LEFT JOIN biblio ON biblio.biblionumber = aqorders.biblionumber
941 LEFT JOIN biblioitems ON biblioitems.biblionumber =biblio.biblionumber
943 AND (datecancellationprinted IS NULL OR datecancellationprinted='0000-00-00')
946 $orderby = "biblioitems.publishercode,biblio.title" unless $orderby;
947 $query .= " ORDER BY $orderby";
948 my $sth = $dbh->prepare($query);
949 $sth->execute($basketno);
950 my $results = $sth->fetchall_arrayref({});
955 #------------------------------------------------------------#
956 =head3 GetOrdersByBiblionumber
958 @orders = &GetOrdersByBiblionumber($biblionumber);
960 Looks up the orders with linked to a specific $biblionumber, including
961 cancelled orders and received orders.
964 C<@orders> is an array of references-to-hash, whose keys are the
965 fields from the aqorders, biblio, and biblioitems tables in the Koha database.
969 sub GetOrdersByBiblionumber
{
970 my $biblionumber = shift;
971 return unless $biblionumber;
972 my $dbh = C4
::Context
->dbh;
974 SELECT biblio.*,biblioitems.*,
978 LEFT JOIN aqbudgets ON aqbudgets.budget_id = aqorders.budget_id
979 LEFT JOIN biblio ON biblio.biblionumber = aqorders.biblionumber
980 LEFT JOIN biblioitems ON biblioitems.biblionumber =biblio.biblionumber
981 WHERE aqorders.biblionumber=?
983 my $sth = $dbh->prepare($query);
984 $sth->execute($biblionumber);
985 my $results = $sth->fetchall_arrayref({});
990 #------------------------------------------------------------#
992 =head3 GetOrderNumber
994 $ordernumber = &GetOrderNumber($biblioitemnumber, $biblionumber);
996 Looks up the ordernumber with the given biblionumber and biblioitemnumber.
998 Returns the number of this order.
1002 =item C<$ordernumber> is the order number.
1008 sub GetOrderNumber
{
1009 my ( $biblionumber,$biblioitemnumber ) = @_;
1010 my $dbh = C4
::Context
->dbh;
1014 WHERE biblionumber=?
1015 AND biblioitemnumber=?
1017 my $sth = $dbh->prepare($query);
1018 $sth->execute( $biblionumber, $biblioitemnumber );
1020 return $sth->fetchrow;
1023 #------------------------------------------------------------#
1027 $order = &GetOrder($ordernumber);
1029 Looks up an order by order number.
1031 Returns a reference-to-hash describing the order. The keys of
1032 C<$order> are fields from the biblio, biblioitems, aqorders tables of the Koha database.
1037 my ($ordernumber) = @_;
1038 my $dbh = C4
::Context
->dbh;
1040 SELECT biblioitems.*, biblio.*, aqorders.*
1042 LEFT JOIN biblio on biblio.biblionumber=aqorders.biblionumber
1043 LEFT JOIN biblioitems on biblioitems.biblionumber=aqorders.biblionumber
1044 WHERE aqorders.ordernumber=?
1047 my $sth= $dbh->prepare($query);
1048 $sth->execute($ordernumber);
1049 my $data = $sth->fetchrow_hashref;
1054 =head3 GetLastOrderNotReceivedFromSubscriptionid
1056 $order = &GetLastOrderNotReceivedFromSubscriptionid($subscriptionid);
1058 Returns a reference-to-hash describing the last order not received for a subscription.
1062 sub GetLastOrderNotReceivedFromSubscriptionid
{
1063 my ( $subscriptionid ) = @_;
1064 my $dbh = C4
::Context
->dbh;
1066 SELECT
* FROM aqorders
1067 LEFT JOIN subscription
1068 ON
( aqorders
.subscriptionid
= subscription
.subscriptionid
)
1069 WHERE aqorders
.subscriptionid
= ?
1070 AND aqorders
.datereceived IS NULL
1073 my $sth = $dbh->prepare( $query );
1074 $sth->execute( $subscriptionid );
1075 my $order = $sth->fetchrow_hashref;
1079 =head3 GetLastOrderReceivedFromSubscriptionid
1081 $order = &GetLastOrderReceivedFromSubscriptionid($subscriptionid);
1083 Returns a reference-to-hash describing the last order received for a subscription.
1087 sub GetLastOrderReceivedFromSubscriptionid
{
1088 my ( $subscriptionid ) = @_;
1089 my $dbh = C4
::Context
->dbh;
1091 SELECT
* FROM aqorders
1092 LEFT JOIN subscription
1093 ON
( aqorders
.subscriptionid
= subscription
.subscriptionid
)
1094 WHERE aqorders
.subscriptionid
= ?
1095 AND aqorders
.datereceived
=
1097 SELECT MAX
( aqorders
.datereceived
)
1099 LEFT JOIN subscription
1100 ON
( aqorders
.subscriptionid
= subscription
.subscriptionid
)
1101 WHERE aqorders
.subscriptionid
= ?
1102 AND aqorders
.datereceived IS NOT NULL
1104 ORDER BY ordernumber DESC
1107 my $sth = $dbh->prepare( $query );
1108 $sth->execute( $subscriptionid, $subscriptionid );
1109 my $order = $sth->fetchrow_hashref;
1115 #------------------------------------------------------------#
1119 &NewOrder(\%hashref);
1121 Adds a new order to the database. Any argument that isn't described
1122 below is the new value of the field with the same name in the aqorders
1123 table of the Koha database.
1127 =item $hashref->{'basketno'} is the basketno foreign key in aqorders, it is mandatory
1129 =item $hashref->{'ordernumber'} is a "minimum order number."
1131 =item $hashref->{'budgetdate'} is effectively ignored.
1132 If it's undef (anything false) or the string 'now', the current day is used.
1133 Else, the upcoming July 1st is used.
1135 =item $hashref->{'subscription'} may be either "yes", or anything else for "no".
1137 =item $hashref->{'uncertainprice'} may be 0 for "the price is known" or 1 for "the price is uncertain"
1139 =item defaults entrydate to Now
1141 The following keys are used: "biblionumber", "title", "basketno", "quantity", "notes", "biblioitemnumber", "rrp", "ecost", "gstrate", "unitprice", "subscription", "sort1", "sort2", "booksellerinvoicenumber", "listprice", "budgetdate", "purchaseordernumber", "branchcode", "booksellerinvoicenumber", "budget_id".
1148 my $orderinfo = shift;
1149 #### ------------------------------
1150 my $dbh = C4
::Context
->dbh;
1154 # if these parameters are missing, we can't continue
1155 for my $key (qw
/basketno quantity biblionumber budget_id/) {
1156 croak
"Mandatory parameter $key missing" unless $orderinfo->{$key};
1159 if ( defined $orderinfo->{subscription
} && $orderinfo->{'subscription'} eq 'yes' ) {
1160 $orderinfo->{'subscription'} = 1;
1162 $orderinfo->{'subscription'} = 0;
1164 $orderinfo->{'entrydate'} ||= C4
::Dates
->new()->output("iso");
1165 if (!$orderinfo->{quantityreceived
}) {
1166 $orderinfo->{quantityreceived
} = 0;
1169 my $ordernumber=InsertInTable
("aqorders",$orderinfo);
1170 if (not $orderinfo->{parent_ordernumber
}) {
1171 my $sth = $dbh->prepare("
1173 SET parent_ordernumber = ordernumber
1174 WHERE ordernumber = ?
1176 $sth->execute($ordernumber);
1178 return ( $orderinfo->{'basketno'}, $ordernumber );
1183 #------------------------------------------------------------#
1192 my ($itemnumber, $ordernumber) = @_;
1193 my $dbh = C4
::Context
->dbh;
1195 INSERT INTO aqorders_items
1196 (itemnumber
, ordernumber
)
1199 my $sth = $dbh->prepare($query);
1200 $sth->execute( $itemnumber, $ordernumber);
1203 #------------------------------------------------------------#
1207 &ModOrder(\%hashref);
1209 Modifies an existing order. Updates the order with order number
1210 $hashref->{'ordernumber'} and biblionumber $hashref->{'biblionumber'}. All
1211 other keys of the hash update the fields with the same name in the aqorders
1212 table of the Koha database.
1217 my $orderinfo = shift;
1219 die "Ordernumber is required" if $orderinfo->{'ordernumber'} eq '' ;
1220 die "Biblionumber is required" if $orderinfo->{'biblionumber'} eq '';
1222 my $dbh = C4
::Context
->dbh;
1225 # update uncertainprice to an integer, just in case (under FF, checked boxes have the value "ON" by default)
1226 $orderinfo->{uncertainprice
}=1 if $orderinfo->{uncertainprice
};
1228 # delete($orderinfo->{'branchcode'});
1229 # the hash contains a lot of entries not in aqorders, so get the columns ...
1230 my $sth = $dbh->prepare("SELECT * FROM aqorders LIMIT 1;");
1232 my $colnames = $sth->{NAME
};
1233 #FIXME Be careful. If aqorders would have columns with diacritics,
1234 #you should need to decode what you get back from NAME.
1235 #See report 10110 and guided_reports.pl
1236 my $query = "UPDATE aqorders SET ";
1238 foreach my $orderinfokey (grep(!/ordernumber/, keys %$orderinfo)){
1239 # ... and skip hash entries that are not in the aqorders table
1240 # FIXME : probably not the best way to do it (would be better to have a correct hash)
1241 next unless grep(/^$orderinfokey$/, @
$colnames);
1242 $query .= "$orderinfokey=?, ";
1243 push(@params, $orderinfo->{$orderinfokey});
1246 $query .= "timestamp=NOW() WHERE ordernumber=?";
1247 # push(@params, $specorderinfo{'ordernumber'});
1248 push(@params, $orderinfo->{'ordernumber'} );
1249 $sth = $dbh->prepare($query);
1250 $sth->execute(@params);
1254 #------------------------------------------------------------#
1258 &ModOrderItem(\%hashref);
1260 Modifies the itemnumber in the aqorders_items table. The input hash needs three entities:
1264 =item - itemnumber: the old itemnumber
1265 =item - ordernumber: the order this item is attached to
1266 =item - newitemnumber: the new itemnumber we want to attach the line to
1273 my $orderiteminfo = shift;
1274 if (! $orderiteminfo->{'ordernumber'} || ! $orderiteminfo->{'itemnumber'} || ! $orderiteminfo->{'newitemnumber'}){
1275 die "Ordernumber, itemnumber and newitemnumber is required";
1278 my $dbh = C4
::Context
->dbh;
1280 my $query = "UPDATE aqorders_items set itemnumber=? where itemnumber=? and ordernumber=?";
1281 my @params = ($orderiteminfo->{'newitemnumber'}, $orderiteminfo->{'itemnumber'}, $orderiteminfo->{'ordernumber'});
1282 my $sth = $dbh->prepare($query);
1283 $sth->execute(@params);
1289 ModItemOrder($itemnumber, $ordernumber);
1291 Modifies the ordernumber of an item in aqorders_items.
1296 my ($itemnumber, $ordernumber) = @_;
1298 return unless ($itemnumber and $ordernumber);
1300 my $dbh = C4
::Context
->dbh;
1302 UPDATE aqorders_items
1304 WHERE itemnumber
= ?
1306 my $sth = $dbh->prepare($query);
1307 return $sth->execute($ordernumber, $itemnumber);
1310 #------------------------------------------------------------#
1313 =head3 ModOrderBibliotemNumber
1315 &ModOrderBiblioitemNumber($biblioitemnumber,$ordernumber, $biblionumber);
1317 Modifies the biblioitemnumber for an existing order.
1318 Updates the order with order number C<$ordernum> and biblionumber C<$biblionumber>.
1322 #FIXME: is this used at all?
1323 sub ModOrderBiblioitemNumber
{
1324 my ($biblioitemnumber,$ordernumber, $biblionumber) = @_;
1325 my $dbh = C4
::Context
->dbh;
1328 SET biblioitemnumber = ?
1329 WHERE ordernumber = ?
1330 AND biblionumber = ?";
1331 my $sth = $dbh->prepare($query);
1332 $sth->execute( $biblioitemnumber, $ordernumber, $biblionumber );
1335 =head3 GetCancelledOrders
1337 my @orders = GetCancelledOrders($basketno, $orderby);
1339 Returns cancelled orders for a basket
1343 sub GetCancelledOrders
{
1344 my ( $basketno, $orderby ) = @_;
1346 return () unless $basketno;
1348 my $dbh = C4
::Context
->dbh;
1350 SELECT biblio.*, biblioitems.*, aqorders.*, aqbudgets.*
1352 LEFT JOIN aqbudgets ON aqbudgets.budget_id = aqorders.budget_id
1353 LEFT JOIN biblio ON biblio.biblionumber = aqorders.biblionumber
1354 LEFT JOIN biblioitems ON biblioitems.biblionumber = biblio.biblionumber
1356 AND (datecancellationprinted IS NOT NULL
1357 AND datecancellationprinted <> '0000-00-00')
1360 $orderby = "aqorders.datecancellationprinted desc, aqorders.timestamp desc"
1362 $query .= " ORDER BY $orderby";
1363 my $sth = $dbh->prepare($query);
1364 $sth->execute($basketno);
1365 my $results = $sth->fetchall_arrayref( {} );
1371 #------------------------------------------------------------#
1373 =head3 ModReceiveOrder
1375 &ModReceiveOrder($biblionumber, $ordernumber, $quantityreceived, $user,
1376 $unitprice, $invoiceid, $biblioitemnumber,
1377 $bookfund, $rrp, \@received_itemnumbers);
1379 Updates an order, to reflect the fact that it was received, at least
1380 in part. All arguments not mentioned below update the fields with the
1381 same name in the aqorders table of the Koha database.
1383 If a partial order is received, splits the order into two.
1385 Updates the order with bibilionumber C<$biblionumber> and ordernumber
1391 sub ModReceiveOrder
{
1393 $biblionumber, $ordernumber, $quantrec, $user, $cost, $ecost,
1394 $invoiceid, $rrp, $budget_id, $datereceived, $received_items
1398 my $dbh = C4
::Context
->dbh;
1399 $datereceived = C4
::Dates
->output('iso') unless $datereceived;
1400 my $suggestionid = GetSuggestionFromBiblionumber
( $biblionumber );
1401 if ($suggestionid) {
1402 ModSuggestion
( {suggestionid
=>$suggestionid,
1403 STATUS
=>'AVAILABLE',
1404 biblionumber
=> $biblionumber}
1408 my $sth=$dbh->prepare("
1409 SELECT * FROM aqorders
1410 WHERE biblionumber=? AND aqorders.ordernumber=?");
1412 $sth->execute($biblionumber,$ordernumber);
1413 my $order = $sth->fetchrow_hashref();
1416 my $new_ordernumber = $ordernumber;
1417 if ( $order->{quantity
} > $quantrec ) {
1418 # Split order line in two parts: the first is the original order line
1419 # without received items (the quantity is decreased),
1420 # the second part is a new order line with quantity=quantityrec
1421 # (entirely received)
1422 $sth=$dbh->prepare("
1425 WHERE ordernumber = ?
1428 $sth->execute($order->{quantity
} - $quantrec, $ordernumber);
1432 delete $order->{'ordernumber'};
1433 $order->{'quantity'} = $quantrec;
1434 $order->{'quantityreceived'} = $quantrec;
1435 $order->{'datereceived'} = $datereceived;
1436 $order->{'invoiceid'} = $invoiceid;
1437 $order->{'unitprice'} = $cost;
1438 $order->{'rrp'} = $rrp;
1439 $order->{ecost
} = $ecost;
1440 $order->{'orderstatus'} = 3; # totally received
1441 $new_ordernumber = NewOrder
($order);
1443 if ($received_items) {
1444 foreach my $itemnumber (@
$received_items) {
1445 ModItemOrder
($itemnumber, $new_ordernumber);
1449 $sth=$dbh->prepare("update aqorders
1450 set quantityreceived=?,datereceived=?,invoiceid=?,
1451 unitprice=?,rrp=?,ecost=?
1452 where biblionumber=? and ordernumber=?");
1453 $sth->execute($quantrec,$datereceived,$invoiceid,$cost,$rrp,$ecost,$biblionumber,$ordernumber);
1456 return ($datereceived, $new_ordernumber);
1459 =head3 CancelReceipt
1461 my $parent_ordernumber = CancelReceipt($ordernumber);
1463 Cancel an order line receipt and update the parent order line, as if no
1465 If items are created at receipt (AcqCreateItem = receiving) then delete
1471 my $ordernumber = shift;
1473 return unless $ordernumber;
1475 my $dbh = C4
::Context
->dbh;
1477 SELECT datereceived
, parent_ordernumber
, quantity
1479 WHERE ordernumber
= ?
1481 my $sth = $dbh->prepare($query);
1482 $sth->execute($ordernumber);
1483 my $order = $sth->fetchrow_hashref;
1485 warn "CancelReceipt: order $ordernumber does not exist";
1488 unless($order->{'datereceived'}) {
1489 warn "CancelReceipt: order $ordernumber is not received";
1493 my $parent_ordernumber = $order->{'parent_ordernumber'};
1495 if($parent_ordernumber == $ordernumber || not $parent_ordernumber) {
1496 # The order line has no parent, just mark it as not received
1499 SET quantityreceived
= ?
,
1502 WHERE ordernumber
= ?
1504 $sth = $dbh->prepare($query);
1505 $sth->execute(0, undef, undef, $ordernumber);
1507 # The order line has a parent, increase parent quantity and delete
1510 SELECT quantity
, datereceived
1512 WHERE ordernumber
= ?
1514 $sth = $dbh->prepare($query);
1515 $sth->execute($parent_ordernumber);
1516 my $parent_order = $sth->fetchrow_hashref;
1517 unless($parent_order) {
1518 warn "Parent order $parent_ordernumber does not exist.";
1521 if($parent_order->{'datereceived'}) {
1522 warn "CancelReceipt: parent order is received.".
1523 " Can't cancel receipt.";
1529 WHERE ordernumber
= ?
1531 $sth = $dbh->prepare($query);
1532 my $rv = $sth->execute(
1533 $order->{'quantity'} + $parent_order->{'quantity'},
1537 warn "Cannot update parent order line, so do not cancel".
1541 if(C4
::Context
->preference('AcqCreateItem') eq 'receiving') {
1542 # Remove items that were created at receipt
1544 DELETE FROM items
, aqorders_items
1545 USING items
, aqorders_items
1546 WHERE items
.itemnumber
= ? AND aqorders_items
.itemnumber
= ?
1548 $sth = $dbh->prepare($query);
1549 my @itemnumbers = GetItemnumbersFromOrder
($ordernumber);
1550 foreach my $itemnumber (@itemnumbers) {
1551 $sth->execute($itemnumber, $itemnumber);
1555 my @itemnumbers = GetItemnumbersFromOrder
($ordernumber);
1556 foreach my $itemnumber (@itemnumbers) {
1557 ModItemOrder
($itemnumber, $parent_ordernumber);
1562 DELETE FROM aqorders
1563 WHERE ordernumber
= ?
1565 $sth = $dbh->prepare($query);
1566 $sth->execute($ordernumber);
1570 return $parent_ordernumber;
1573 #------------------------------------------------------------#
1577 @results = &SearchOrder($search, $biblionumber, $complete);
1579 Searches for orders.
1581 C<$search> may take one of several forms: if it is an ISBN,
1582 C<&ordersearch> returns orders with that ISBN. If C<$search> is an
1583 order number, C<&ordersearch> returns orders with that order number
1584 and biblionumber C<$biblionumber>. Otherwise, C<$search> is considered
1585 to be a space-separated list of search terms; in this case, all of the
1586 terms must appear in the title (matching the beginning of title
1589 If C<$complete> is C<yes>, the results will include only completed
1590 orders. In any case, C<&ordersearch> ignores cancelled orders.
1592 C<&ordersearch> returns an array.
1593 C<@results> is an array of references-to-hash with the following keys:
1599 =item C<seriestitle>
1610 #### -------- SearchOrder-------------------------------
1611 my ( $ordernumber, $search, $ean, $supplierid, $basket ) = @_;
1613 my $dbh = C4
::Context
->dbh;
1618 LEFT JOIN biblio ON aqorders.biblionumber=biblio.biblionumber
1619 LEFT JOIN biblioitems ON biblioitems.biblionumber=biblio.biblionumber
1620 LEFT JOIN aqbasket ON aqorders.basketno = aqbasket.basketno
1621 WHERE (datecancellationprinted is NULL)";
1624 $query .= " AND (aqorders.ordernumber=?)";
1625 push @args, $ordernumber;
1628 $query .= " AND (biblio.title like ? OR biblio.author LIKE ? OR biblioitems.isbn like ?)";
1629 push @args, ("%$search%","%$search%","%$search%");
1632 $query .= " AND biblioitems.ean = ?";
1636 $query .= "AND aqbasket.booksellerid = ?";
1637 push @args, $supplierid;
1640 $query .= "AND aqorders.basketno = ?";
1641 push @args, $basket;
1644 my $sth = $dbh->prepare($query);
1645 $sth->execute(@args);
1646 my $results = $sth->fetchall_arrayref({});
1651 #------------------------------------------------------------#
1655 &DelOrder($biblionumber, $ordernumber);
1657 Cancel the order with the given order and biblio numbers. It does not
1658 delete any entries in the aqorders table, it merely marks them as
1664 my ( $bibnum, $ordernumber ) = @_;
1665 my $dbh = C4
::Context
->dbh;
1668 SET datecancellationprinted=now()
1669 WHERE biblionumber=? AND ordernumber=?
1671 my $sth = $dbh->prepare($query);
1672 $sth->execute( $bibnum, $ordernumber );
1674 my @itemnumbers = GetItemnumbersFromOrder
( $ordernumber );
1675 foreach my $itemnumber (@itemnumbers){
1676 C4
::Items
::DelItem
( $dbh, $bibnum, $itemnumber );
1681 =head2 FUNCTIONS ABOUT PARCELS
1685 #------------------------------------------------------------#
1689 @results = &GetParcel($booksellerid, $code, $date);
1691 Looks up all of the received items from the supplier with the given
1692 bookseller ID at the given date, for the given code (bookseller Invoice number). Ignores cancelled and completed orders.
1694 C<@results> is an array of references-to-hash. The keys of each element are fields from
1695 the aqorders, biblio, and biblioitems tables of the Koha database.
1697 C<@results> is sorted alphabetically by book title.
1702 #gets all orders from a certain supplier, orders them alphabetically
1703 my ( $supplierid, $code, $datereceived ) = @_;
1704 my $dbh = C4
::Context
->dbh;
1707 if $code; # add % if we search on a given code (otherwise, let him empty)
1709 SELECT authorisedby,
1714 aqorders.biblionumber,
1715 aqorders.ordernumber,
1716 aqorders.parent_ordernumber,
1718 aqorders.quantityreceived,
1726 LEFT JOIN aqbasket ON aqbasket.basketno=aqorders.basketno
1727 LEFT JOIN borrowers ON aqbasket.authorisedby=borrowers.borrowernumber
1728 LEFT JOIN biblio ON aqorders.biblionumber=biblio.biblionumber
1729 LEFT JOIN aqinvoices ON aqorders.invoiceid = aqinvoices.invoiceid
1731 aqbasket.booksellerid = ?
1732 AND aqinvoices.invoicenumber LIKE ?
1733 AND aqorders.datereceived = ? ";
1735 my @query_params = ( $supplierid, $code, $datereceived );
1736 if ( C4
::Context
->preference("IndependentBranches") ) {
1737 my $userenv = C4
::Context
->userenv;
1738 if ( ($userenv) && ( $userenv->{flags
} != 1 ) ) {
1739 $strsth .= " and (borrowers.branchcode = ?
1740 or borrowers.branchcode = '')";
1741 push @query_params, $userenv->{branch
};
1744 $strsth .= " ORDER BY aqbasket.basketno";
1745 # ## parcelinformation : $strsth
1746 my $sth = $dbh->prepare($strsth);
1747 $sth->execute( @query_params );
1748 while ( my $data = $sth->fetchrow_hashref ) {
1749 push( @results, $data );
1751 # ## countparcelbiblio: scalar(@results)
1757 #------------------------------------------------------------#
1761 $results = &GetParcels($bookseller, $order, $code, $datefrom, $dateto);
1763 get a lists of parcels.
1770 is the bookseller this function has to get parcels.
1773 To know on what criteria the results list has to be ordered.
1776 is the booksellerinvoicenumber.
1778 =item $datefrom & $dateto
1779 to know on what date this function has to filter its search.
1784 a pointer on a hash list containing parcel informations as such :
1790 =item Last operation
1792 =item Number of biblio
1794 =item Number of items
1801 my ($bookseller,$order, $code, $datefrom, $dateto) = @_;
1802 my $dbh = C4
::Context
->dbh;
1803 my @query_params = ();
1805 SELECT aqinvoices.invoicenumber,
1806 datereceived,purchaseordernumber,
1807 count(DISTINCT biblionumber) AS biblio,
1808 sum(quantity) AS itemsexpected,
1809 sum(quantityreceived) AS itemsreceived
1810 FROM aqorders LEFT JOIN aqbasket ON aqbasket.basketno = aqorders.basketno
1811 LEFT JOIN aqinvoices ON aqorders.invoiceid = aqinvoices.invoiceid
1812 WHERE aqbasket.booksellerid = ? and datereceived IS NOT NULL
1814 push @query_params, $bookseller;
1816 if ( defined $code ) {
1817 $strsth .= ' and aqinvoices.invoicenumber like ? ';
1818 # add a % to the end of the code to allow stemming.
1819 push @query_params, "$code%";
1822 if ( defined $datefrom ) {
1823 $strsth .= ' and datereceived >= ? ';
1824 push @query_params, $datefrom;
1827 if ( defined $dateto ) {
1828 $strsth .= 'and datereceived <= ? ';
1829 push @query_params, $dateto;
1832 $strsth .= "group by aqinvoices.invoicenumber,datereceived ";
1834 # can't use a placeholder to place this column name.
1835 # but, we could probably be checking to make sure it is a column that will be fetched.
1836 $strsth .= "order by $order " if ($order);
1838 my $sth = $dbh->prepare($strsth);
1840 $sth->execute( @query_params );
1841 my $results = $sth->fetchall_arrayref({});
1846 #------------------------------------------------------------#
1848 =head3 GetLateOrders
1850 @results = &GetLateOrders;
1852 Searches for bookseller with late orders.
1855 the table of supplier with late issues. This table is full of hashref.
1861 my $supplierid = shift;
1863 my $estimateddeliverydatefrom = shift;
1864 my $estimateddeliverydateto = shift;
1866 my $dbh = C4
::Context
->dbh;
1868 #BEWARE, order of parenthesis and LEFT JOIN is important for speed
1869 my $dbdriver = C4
::Context
->config("db_scheme") || "mysql";
1871 my @query_params = ();
1873 SELECT aqbasket.basketno,
1874 aqorders.ordernumber,
1875 DATE(aqbasket.closedate) AS orderdate,
1876 aqorders.rrp AS unitpricesupplier,
1877 aqorders.ecost AS unitpricelib,
1878 aqorders.claims_count AS claims_count,
1879 aqorders.claimed_date AS claimed_date,
1880 aqbudgets.budget_name AS budget,
1881 borrowers.branchcode AS branch,
1882 aqbooksellers.name AS supplier,
1883 aqbooksellers.id AS supplierid,
1884 biblio.author, biblio.title,
1885 biblioitems.publishercode AS publisher,
1886 biblioitems.publicationyear,
1887 ADDDATE(aqbasket.closedate, INTERVAL aqbooksellers.deliverytime DAY) AS estimateddeliverydate,
1891 aqorders LEFT JOIN biblio ON biblio.biblionumber = aqorders.biblionumber
1892 LEFT JOIN biblioitems ON biblioitems.biblionumber = biblio.biblionumber
1893 LEFT JOIN aqbudgets ON aqorders.budget_id = aqbudgets.budget_id,
1894 aqbasket LEFT JOIN borrowers ON aqbasket.authorisedby = borrowers.borrowernumber
1895 LEFT JOIN aqbooksellers ON aqbasket.booksellerid = aqbooksellers.id
1896 WHERE aqorders.basketno = aqbasket.basketno
1897 AND ( datereceived = ''
1898 OR datereceived IS NULL
1899 OR aqorders.quantityreceived < aqorders.quantity
1901 AND aqbasket.closedate IS NOT NULL
1902 AND (aqorders.datecancellationprinted IS NULL OR aqorders.datecancellationprinted='0000-00-00')
1905 if ($dbdriver eq "mysql") {
1907 aqorders.quantity - COALESCE(aqorders.quantityreceived,0) AS quantity,
1908 (aqorders.quantity - COALESCE(aqorders.quantityreceived,0)) * aqorders.rrp AS subtotal,
1909 DATEDIFF(CAST(now() AS date),closedate) AS latesince
1911 if ( defined $delay ) {
1912 $from .= " AND (closedate <= DATE_SUB(CAST(now() AS date),INTERVAL ? DAY)) " ;
1913 push @query_params, $delay;
1916 HAVING quantity <> 0
1917 AND unitpricesupplier <> 0
1918 AND unitpricelib <> 0
1921 # FIXME: account for IFNULL as above
1923 aqorders.quantity AS quantity,
1924 aqorders.quantity * aqorders.rrp AS subtotal,
1925 (CAST(now() AS date) - closedate) AS latesince
1927 if ( defined $delay ) {
1928 $from .= " AND (closedate <= (CAST(now() AS date) -(INTERVAL ? DAY)) ";
1929 push @query_params, $delay;
1932 if (defined $supplierid) {
1933 $from .= ' AND aqbasket.booksellerid = ? ';
1934 push @query_params, $supplierid;
1936 if (defined $branch) {
1937 $from .= ' AND borrowers.branchcode LIKE ? ';
1938 push @query_params, $branch;
1941 if ( defined $estimateddeliverydatefrom or defined $estimateddeliverydateto ) {
1942 $from .= ' AND aqbooksellers.deliverytime IS NOT NULL ';
1944 if ( defined $estimateddeliverydatefrom ) {
1945 $from .= ' AND ADDDATE(aqbasket.closedate, INTERVAL aqbooksellers.deliverytime DAY) >= ?';
1946 push @query_params, $estimateddeliverydatefrom;
1948 if ( defined $estimateddeliverydateto ) {
1949 $from .= ' AND ADDDATE(aqbasket.closedate, INTERVAL aqbooksellers.deliverytime DAY) <= ?';
1950 push @query_params, $estimateddeliverydateto;
1952 if ( defined $estimateddeliverydatefrom and not defined $estimateddeliverydateto ) {
1953 $from .= ' AND ADDDATE(aqbasket.closedate, INTERVAL aqbooksellers.deliverytime DAY) <= CAST(now() AS date)';
1955 if (C4
::Context
->preference("IndependentBranches")
1956 && C4
::Context
->userenv
1957 && C4
::Context
->userenv->{flags
} != 1 ) {
1958 $from .= ' AND borrowers.branchcode LIKE ? ';
1959 push @query_params, C4
::Context
->userenv->{branch
};
1961 my $query = "$select $from $having\nORDER BY latesince, basketno, borrowers.branchcode, supplier";
1962 $debug and print STDERR
"GetLateOrders query: $query\nGetLateOrders args: " . join(" ",@query_params);
1963 my $sth = $dbh->prepare($query);
1964 $sth->execute(@query_params);
1966 while (my $data = $sth->fetchrow_hashref) {
1967 $data->{orderdate
} = format_date
($data->{orderdate
});
1968 $data->{claimed_date
} = format_date
($data->{claimed_date
});
1969 push @results, $data;
1974 #------------------------------------------------------------#
1978 (\@order_loop, $total_qty, $total_price, $total_qtyreceived) = GetHistory( %params );
1980 Retreives some acquisition history information
1988 basket - search both basket name and number
1989 booksellerinvoicenumber
1992 $order_loop is a list of hashrefs that each look like this:
1994 'author' => 'Twain, Mark',
1996 'biblionumber' => '215',
1998 'creationdate' => 'MM/DD/YYYY',
1999 'datereceived' => undef,
2002 'invoicenumber' => undef,
2004 'ordernumber' => '1',
2006 'quantityreceived' => undef,
2007 'title' => 'The Adventures of Huckleberry Finn'
2009 $total_qty is the sum of all of the quantities in $order_loop
2010 $total_price is the cost of each in $order_loop times the quantity
2011 $total_qtyreceived is the sum of all of the quantityreceived entries in $order_loop
2016 # don't run the query if there are no parameters (list would be too long for sure !)
2017 croak
"No search params" unless @_;
2019 my $title = $params{title
};
2020 my $author = $params{author
};
2021 my $isbn = $params{isbn
};
2022 my $ean = $params{ean
};
2023 my $name = $params{name
};
2024 my $from_placed_on = $params{from_placed_on
};
2025 my $to_placed_on = $params{to_placed_on
};
2026 my $basket = $params{basket
};
2027 my $booksellerinvoicenumber = $params{booksellerinvoicenumber
};
2028 my $basketgroupname = $params{basketgroupname
};
2031 my $total_qtyreceived = 0;
2032 my $total_price = 0;
2034 my $dbh = C4
::Context
->dbh;
2042 aqbasket.basketname,
2043 aqbasket.basketgroupid,
2044 aqbasketgroups.name as groupname,
2046 aqbasket.creationdate,
2047 aqorders.datereceived,
2049 aqorders.quantityreceived,
2051 aqorders.ordernumber,
2052 aqinvoices.invoicenumber,
2053 aqbooksellers.id as id,
2054 aqorders.biblionumber
2056 LEFT JOIN aqbasket ON aqorders.basketno=aqbasket.basketno
2057 LEFT JOIN aqbasketgroups ON aqbasket.basketgroupid=aqbasketgroups.id
2058 LEFT JOIN aqbooksellers ON aqbasket.booksellerid=aqbooksellers.id
2059 LEFT JOIN biblioitems ON biblioitems.biblionumber=aqorders.biblionumber
2060 LEFT JOIN biblio ON biblio.biblionumber=aqorders.biblionumber
2061 LEFT JOIN aqinvoices ON aqorders.invoiceid = aqinvoices.invoiceid";
2063 $query .= " LEFT JOIN borrowers ON aqbasket.authorisedby=borrowers.borrowernumber"
2064 if ( C4
::Context
->preference("IndependentBranches") );
2066 $query .= " WHERE (datecancellationprinted is NULL or datecancellationprinted='0000-00-00') ";
2068 my @query_params = ();
2071 $query .= " AND biblio.title LIKE ? ";
2072 $title =~ s/\s+/%/g;
2073 push @query_params, "%$title%";
2077 $query .= " AND biblio.author LIKE ? ";
2078 push @query_params, "%$author%";
2082 $query .= " AND biblioitems.isbn LIKE ? ";
2083 push @query_params, "%$isbn%";
2085 if ( defined $ean and $ean ) {
2086 $query .= " AND biblioitems.ean = ? ";
2087 push @query_params, "$ean";
2090 $query .= " AND aqbooksellers.name LIKE ? ";
2091 push @query_params, "%$name%";
2094 if ( $from_placed_on ) {
2095 $query .= " AND creationdate >= ? ";
2096 push @query_params, $from_placed_on;
2099 if ( $to_placed_on ) {
2100 $query .= " AND creationdate <= ? ";
2101 push @query_params, $to_placed_on;
2105 if ($basket =~ m/^\d+$/) {
2106 $query .= " AND aqorders.basketno = ? ";
2107 push @query_params, $basket;
2109 $query .= " AND aqbasket.basketname LIKE ? ";
2110 push @query_params, "%$basket%";
2114 if ($booksellerinvoicenumber) {
2115 $query .= " AND aqinvoices.invoicenumber LIKE ? ";
2116 push @query_params, "%$booksellerinvoicenumber%";
2119 if ($basketgroupname) {
2120 $query .= " AND aqbasketgroups.name LIKE ? ";
2121 push @query_params, "%$basketgroupname%";
2124 if ( C4
::Context
->preference("IndependentBranches") ) {
2125 my $userenv = C4
::Context
->userenv;
2126 if ( $userenv && ($userenv->{flags
} || 0) != 1 ) {
2127 $query .= " AND (borrowers.branchcode = ? OR borrowers.branchcode ='' ) ";
2128 push @query_params, $userenv->{branch
};
2131 $query .= " ORDER BY id";
2132 my $sth = $dbh->prepare($query);
2133 $sth->execute( @query_params );
2135 while ( my $line = $sth->fetchrow_hashref ) {
2136 $line->{count
} = $cnt++;
2137 $line->{toggle
} = 1 if $cnt % 2;
2138 push @order_loop, $line;
2139 $total_qty += $line->{'quantity'};
2140 $total_qtyreceived += $line->{'quantityreceived'};
2141 $total_price += $line->{'quantity'} * $line->{'ecost'};
2143 return \
@order_loop, $total_qty, $total_price, $total_qtyreceived;
2146 =head2 GetRecentAcqui
2148 $results = GetRecentAcqui($days);
2150 C<$results> is a ref to a table which containts hashref
2154 sub GetRecentAcqui
{
2156 my $dbh = C4
::Context
->dbh;
2160 ORDER BY timestamp DESC
2163 my $sth = $dbh->prepare($query);
2165 my $results = $sth->fetchall_arrayref({});
2171 $contractlist = &GetContracts($booksellerid, $activeonly);
2173 Looks up the contracts that belong to a bookseller
2175 Returns a list of contracts
2179 =item C<$booksellerid> is the "id" field in the "aqbooksellers" table.
2181 =item C<$activeonly> if exists get only contracts that are still active.
2188 my ( $booksellerid, $activeonly ) = @_;
2189 my $dbh = C4
::Context
->dbh;
2191 if (! $activeonly) {
2195 WHERE booksellerid=?
2200 WHERE booksellerid=?
2201 AND contractenddate >= CURDATE( )";
2203 my $sth = $dbh->prepare($query);
2204 $sth->execute( $booksellerid );
2206 while (my $data = $sth->fetchrow_hashref ) {
2207 push(@results, $data);
2213 #------------------------------------------------------------#
2217 $contract = &GetContract($contractID);
2219 Looks up the contract that has PRIMKEY (contractnumber) value $contractID
2226 my ( $contractno ) = @_;
2227 my $dbh = C4
::Context
->dbh;
2231 WHERE contractnumber=?
2234 my $sth = $dbh->prepare($query);
2235 $sth->execute( $contractno );
2236 my $result = $sth->fetchrow_hashref;
2244 &AddClaim($ordernumber);
2246 Add a claim for an order
2252 my ($ordernumber) = @_;
2253 my $dbh = C4
::Context
->dbh;
2256 claims_count = claims_count + 1,
2257 claimed_date = CURDATE()
2258 WHERE ordernumber = ?
2260 my $sth = $dbh->prepare($query);
2261 $sth->execute($ordernumber);
2266 my @invoices = GetInvoices(
2267 invoicenumber => $invoicenumber,
2268 suppliername => $suppliername,
2269 shipmentdatefrom => $shipmentdatefrom, # ISO format
2270 shipmentdateto => $shipmentdateto, # ISO format
2271 billingdatefrom => $billingdatefrom, # ISO format
2272 billingdateto => $billingdateto, # ISO format
2273 isbneanissn => $isbn_or_ean_or_issn,
2276 publisher => $publisher,
2277 publicationyear => $publicationyear,
2278 branchcode => $branchcode,
2279 order_by => $order_by
2282 Return a list of invoices that match all given criteria.
2284 $order_by is "column_name (asc|desc)", where column_name is any of
2285 'invoicenumber', 'booksellerid', 'shipmentdate', 'billingdate', 'closedate',
2286 'shipmentcost', 'shipmentcost_budgetid'.
2288 asc is the default if omitted
2295 my @columns = qw(invoicenumber booksellerid shipmentdate billingdate
2296 closedate shipmentcost shipmentcost_budgetid);
2298 my $dbh = C4
::Context
->dbh;
2300 SELECT aqinvoices
.*, aqbooksellers
.name AS suppliername
,
2303 aqorders
.datereceived IS NOT NULL
,
2304 aqorders
.biblionumber
,
2307 ) AS receivedbiblios
,
2308 SUM
(aqorders
.quantityreceived
) AS receiveditems
2310 LEFT JOIN aqbooksellers ON aqbooksellers
.id
= aqinvoices
.booksellerid
2311 LEFT JOIN aqorders ON aqorders
.invoiceid
= aqinvoices
.invoiceid
2312 LEFT JOIN biblio ON aqorders
.biblionumber
= biblio
.biblionumber
2313 LEFT JOIN biblioitems ON biblio
.biblionumber
= biblioitems
.biblionumber
2314 LEFT JOIN subscription ON biblio
.biblionumber
= subscription
.biblionumber
2319 if($args{supplierid
}) {
2320 push @bind_strs, " aqinvoices.booksellerid = ? ";
2321 push @bind_args, $args{supplierid
};
2323 if($args{invoicenumber
}) {
2324 push @bind_strs, " aqinvoices.invoicenumber LIKE ? ";
2325 push @bind_args, "%$args{invoicenumber}%";
2327 if($args{suppliername
}) {
2328 push @bind_strs, " aqbooksellers.name LIKE ? ";
2329 push @bind_args, "%$args{suppliername}%";
2331 if($args{shipmentdatefrom
}) {
2332 push @bind_strs, " aqinvoices.shipementdate >= ? ";
2333 push @bind_args, $args{shipmentdatefrom
};
2335 if($args{shipmentdateto
}) {
2336 push @bind_strs, " aqinvoices.shipementdate <= ? ";
2337 push @bind_args, $args{shipmentdateto
};
2339 if($args{billingdatefrom
}) {
2340 push @bind_strs, " aqinvoices.billingdate >= ? ";
2341 push @bind_args, $args{billingdatefrom
};
2343 if($args{billingdateto
}) {
2344 push @bind_strs, " aqinvoices.billingdate <= ? ";
2345 push @bind_args, $args{billingdateto
};
2347 if($args{isbneanissn
}) {
2348 push @bind_strs, " (biblioitems.isbn LIKE ? OR biblioitems.ean LIKE ? OR biblioitems.issn LIKE ? ) ";
2349 push @bind_args, $args{isbneanissn
}, $args{isbneanissn
}, $args{isbneanissn
};
2352 push @bind_strs, " biblio.title LIKE ? ";
2353 push @bind_args, $args{title
};
2356 push @bind_strs, " biblio.author LIKE ? ";
2357 push @bind_args, $args{author
};
2359 if($args{publisher
}) {
2360 push @bind_strs, " biblioitems.publishercode LIKE ? ";
2361 push @bind_args, $args{publisher
};
2363 if($args{publicationyear
}) {
2364 push @bind_strs, " biblioitems.publicationyear = ? ";
2365 push @bind_args, $args{publicationyear
};
2367 if($args{branchcode
}) {
2368 push @bind_strs, " aqorders.branchcode = ? ";
2369 push @bind_args, $args{branchcode
};
2372 $query .= " WHERE " . join(" AND ", @bind_strs) if @bind_strs;
2373 $query .= " GROUP BY aqinvoices.invoiceid ";
2375 if($args{order_by
}) {
2376 my ($column, $direction) = split / /, $args{order_by
};
2377 if(grep /^$column$/, @columns) {
2378 $direction ||= 'ASC';
2379 $query .= " ORDER BY $column $direction";
2383 my $sth = $dbh->prepare($query);
2384 $sth->execute(@bind_args);
2386 my $results = $sth->fetchall_arrayref({});
2392 my $invoice = GetInvoice($invoiceid);
2394 Get informations about invoice with given $invoiceid
2396 Return a hash filled with aqinvoices.* fields
2401 my ($invoiceid) = @_;
2404 return unless $invoiceid;
2406 my $dbh = C4
::Context
->dbh;
2412 my $sth = $dbh->prepare($query);
2413 $sth->execute($invoiceid);
2415 $invoice = $sth->fetchrow_hashref;
2419 =head3 GetInvoiceDetails
2421 my $invoice = GetInvoiceDetails($invoiceid)
2423 Return informations about an invoice + the list of related order lines
2425 Orders informations are in $invoice->{orders} (array ref)
2429 sub GetInvoiceDetails
{
2430 my ($invoiceid) = @_;
2432 if ( !defined $invoiceid ) {
2433 carp
'GetInvoiceDetails called without an invoiceid';
2437 my $dbh = C4
::Context
->dbh;
2439 SELECT aqinvoices
.*, aqbooksellers
.name AS suppliername
2441 LEFT JOIN aqbooksellers ON aqinvoices
.booksellerid
= aqbooksellers
.id
2444 my $sth = $dbh->prepare($query);
2445 $sth->execute($invoiceid);
2447 my $invoice = $sth->fetchrow_hashref;
2450 SELECT aqorders
.*, biblio
.*
2452 LEFT JOIN biblio ON aqorders
.biblionumber
= biblio
.biblionumber
2455 $sth = $dbh->prepare($query);
2456 $sth->execute($invoiceid);
2457 $invoice->{orders
} = $sth->fetchall_arrayref({});
2458 $invoice->{orders
} ||= []; # force an empty arrayref if fetchall_arrayref fails
2465 my $invoiceid = AddInvoice(
2466 invoicenumber => $invoicenumber,
2467 booksellerid => $booksellerid,
2468 shipmentdate => $shipmentdate,
2469 billingdate => $billingdate,
2470 closedate => $closedate,
2471 shipmentcost => $shipmentcost,
2472 shipmentcost_budgetid => $shipmentcost_budgetid
2475 Create a new invoice and return its id or undef if it fails.
2482 return unless(%invoice and $invoice{invoicenumber
});
2484 my @columns = qw(invoicenumber booksellerid shipmentdate billingdate
2485 closedate shipmentcost shipmentcost_budgetid);
2489 foreach my $key (keys %invoice) {
2490 if(0 < grep(/^$key$/, @columns)) {
2491 push @set_strs, "$key = ?";
2492 push @set_args, ($invoice{$key} || undef);
2498 my $dbh = C4
::Context
->dbh;
2499 my $query = "INSERT INTO aqinvoices SET ";
2500 $query .= join (",", @set_strs);
2501 my $sth = $dbh->prepare($query);
2502 $rv = $sth->execute(@set_args);
2504 $rv = $dbh->last_insert_id(undef, undef, 'aqinvoices', undef);
2513 invoiceid => $invoiceid, # Mandatory
2514 invoicenumber => $invoicenumber,
2515 booksellerid => $booksellerid,
2516 shipmentdate => $shipmentdate,
2517 billingdate => $billingdate,
2518 closedate => $closedate,
2519 shipmentcost => $shipmentcost,
2520 shipmentcost_budgetid => $shipmentcost_budgetid
2523 Modify an invoice, invoiceid is mandatory.
2525 Return undef if it fails.
2532 return unless(%invoice and $invoice{invoiceid
});
2534 my @columns = qw(invoicenumber booksellerid shipmentdate billingdate
2535 closedate shipmentcost shipmentcost_budgetid);
2539 foreach my $key (keys %invoice) {
2540 if(0 < grep(/^$key$/, @columns)) {
2541 push @set_strs, "$key = ?";
2542 push @set_args, ($invoice{$key} || undef);
2546 my $dbh = C4
::Context
->dbh;
2547 my $query = "UPDATE aqinvoices SET ";
2548 $query .= join(",", @set_strs);
2549 $query .= " WHERE invoiceid = ?";
2551 my $sth = $dbh->prepare($query);
2552 $sth->execute(@set_args, $invoice{invoiceid
});
2557 CloseInvoice($invoiceid);
2561 Equivalent to ModInvoice(invoiceid => $invoiceid, closedate => undef);
2566 my ($invoiceid) = @_;
2568 return unless $invoiceid;
2570 my $dbh = C4
::Context
->dbh;
2573 SET closedate
= CAST
(NOW
() AS DATE
)
2576 my $sth = $dbh->prepare($query);
2577 $sth->execute($invoiceid);
2580 =head3 ReopenInvoice
2582 ReopenInvoice($invoiceid);
2586 Equivalent to ModInvoice(invoiceid => $invoiceid, closedate => C4::Dates->new()->output('iso'))
2591 my ($invoiceid) = @_;
2593 return unless $invoiceid;
2595 my $dbh = C4
::Context
->dbh;
2598 SET closedate
= NULL
2601 my $sth = $dbh->prepare($query);
2602 $sth->execute($invoiceid);
2610 Koha Development Team <http://koha-community.org/>