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);
36 use vars qw($VERSION @ISA @EXPORT);
39 # set the version for version checking
44 &GetBasket &NewBasket &CloseBasket &DelBasket &ModBasket
46 &GetBasketsByBookseller &GetBasketsByBasketgroup
50 &ModBasketgroup &NewBasketgroup &DelBasketgroup &GetBasketgroup &CloseBasketgroup
51 &GetBasketgroups &ReOpenBasketgroup
53 &NewOrder &DelOrder &ModOrder &GetPendingOrders &GetOrder &GetOrders
54 &GetOrderNumber &GetLateOrders &GetOrderFromItemnumber
55 &SearchOrder &GetHistory &GetRecentAcqui
56 &ModReceiveOrder &ModOrderBiblioitemNumber
59 &NewOrderItem &ModOrderItem
61 &GetParcels &GetParcel
62 &GetContracts &GetContract
64 &GetItemnumbersFromOrder
74 sub GetOrderFromItemnumber {
75 my ($itemnumber) = @_;
76 my $dbh = C4::Context->dbh;
79 SELECT * from aqorders LEFT JOIN aqorders_items
80 ON ( aqorders.ordernumber = aqorders_items.ordernumber )
81 WHERE itemnumber = ? |;
83 my $sth = $dbh->prepare($query);
87 $sth->execute($itemnumber);
89 my $order = $sth->fetchrow_hashref;
94 # Returns the itemnumber(s) associated with the ordernumber given in parameter
95 sub GetItemnumbersFromOrder {
96 my ($ordernumber) = @_;
97 my $dbh = C4::Context->dbh;
98 my $query = "SELECT itemnumber FROM aqorders_items WHERE ordernumber=?";
99 my $sth = $dbh->prepare($query);
100 $sth->execute($ordernumber);
103 while (my $order = $sth->fetchrow_hashref) {
104 push @tab, $order->{'itemnumber'};
118 C4::Acquisition - Koha functions for dealing with orders and acquisitions
126 The functions in this module deal with acquisitions, managing book
127 orders, basket and parcels.
131 =head2 FUNCTIONS ABOUT BASKETS
135 $aqbasket = &GetBasket($basketnumber);
137 get all basket informations in aqbasket for a given basket
139 B<returns:> informations for a given basket returned as a hashref.
145 my $dbh = C4::Context->dbh;
148 concat( b.firstname,' ',b.surname) AS authorisedbyname,
149 b.branchcode AS branch
151 LEFT JOIN borrowers b ON aqbasket.authorisedby=b.borrowernumber
154 my $sth=$dbh->prepare($query);
155 $sth->execute($basketno);
156 my $basket = $sth->fetchrow_hashref;
160 #------------------------------------------------------------#
164 $basket = &NewBasket( $booksellerid, $authorizedby, $basketname,
165 $basketnote, $basketbooksellernote, $basketcontractnumber );
167 Create a new basket in aqbasket table
171 =item C<$booksellerid> is a foreign key in the aqbasket table
173 =item C<$authorizedby> is the username of who created the basket
177 The other parameters are optional, see ModBasketHeader for more info on them.
181 # FIXME : this function seems to be unused.
184 my ( $booksellerid, $authorisedby, $basketname, $basketnote, $basketbooksellernote, $basketcontractnumber ) = @_;
185 my $dbh = C4::Context->dbh;
188 (creationdate,booksellerid,authorisedby)
189 VALUES (now(),'$booksellerid','$authorisedby')
193 #find & return basketno MYSQL dependant, but $dbh->last_insert_id always returns null :-(
194 my $basket = $dbh->{'mysql_insertid'};
195 ModBasketHeader($basket, $basketname || '', $basketnote || '', $basketbooksellernote || '', $basketcontractnumber || undef);
199 #------------------------------------------------------------#
203 &CloseBasket($basketno);
205 close a basket (becomes unmodifiable,except for recieves)
211 my $dbh = C4::Context->dbh;
217 my $sth = $dbh->prepare($query);
218 $sth->execute($basketno);
221 #------------------------------------------------------------#
223 =head3 GetBasketAsCSV
225 &GetBasketAsCSV($basketno);
227 Export a basket as CSV
233 my $basket = GetBasket($basketno);
234 my @orders = GetOrders($basketno);
235 my $contract = GetContract($basket->{'contractnumber'});
236 my $csv = Text::CSV->new();
239 # TODO: Translate headers
240 my @headers = qw(contractname ordernumber entrydate isbn author title publishercode collectiontitle notes quantity rrp);
242 $csv->combine(@headers);
243 $output = $csv->string() . "\n";
246 foreach my $order (@orders) {
248 # newlines are not valid characters for Text::CSV combine()
249 $order->{'notes'} =~ s/[\r\n]+//g;
251 $contract->{'contractname'},
252 $order->{'ordernumber'},
253 $order->{'entrydate'},
257 $order->{'publishercode'},
258 $order->{'collectiontitle'},
260 $order->{'quantity'},
263 push (@rows, \@cols);
266 foreach my $row (@rows) {
267 $csv->combine(@$row);
268 $output .= $csv->string() . "\n";
277 =head3 CloseBasketgroup
279 &CloseBasketgroup($basketgroupno);
285 sub CloseBasketgroup {
286 my ($basketgroupno) = @_;
287 my $dbh = C4::Context->dbh;
288 my $sth = $dbh->prepare("
289 UPDATE aqbasketgroups
293 $sth->execute($basketgroupno);
296 #------------------------------------------------------------#
298 =head3 ReOpenBaskergroup($basketgroupno)
300 &ReOpenBaskergroup($basketgroupno);
306 sub ReOpenBasketgroup {
307 my ($basketgroupno) = @_;
308 my $dbh = C4::Context->dbh;
309 my $sth = $dbh->prepare("
310 UPDATE aqbasketgroups
314 $sth->execute($basketgroupno);
317 #------------------------------------------------------------#
322 &DelBasket($basketno);
324 Deletes the basket that has basketno field $basketno in the aqbasket table.
328 =item C<$basketno> is the primary key of the basket in the aqbasket table.
335 my ( $basketno ) = @_;
336 my $query = "DELETE FROM aqbasket WHERE basketno=?";
337 my $dbh = C4::Context->dbh;
338 my $sth = $dbh->prepare($query);
339 $sth->execute($basketno);
343 #------------------------------------------------------------#
347 &ModBasket($basketinfo);
349 Modifies a basket, using a hashref $basketinfo for the relevant information, only $basketinfo->{'basketno'} is required.
353 =item C<$basketno> is the primary key of the basket in the aqbasket table.
360 my $basketinfo = shift;
361 my $query = "UPDATE aqbasket SET ";
363 foreach my $key (keys %$basketinfo){
364 if ($key ne 'basketno'){
365 $query .= "$key=?, ";
366 push(@params, $basketinfo->{$key} || undef );
369 # get rid of the "," at the end of $query
370 if (substr($query, length($query)-2) eq ', '){
375 $query .= "WHERE basketno=?";
376 push(@params, $basketinfo->{'basketno'});
377 my $dbh = C4::Context->dbh;
378 my $sth = $dbh->prepare($query);
379 $sth->execute(@params);
383 #------------------------------------------------------------#
385 =head3 ModBasketHeader
387 &ModBasketHeader($basketno, $basketname, $note, $booksellernote, $contractnumber);
389 Modifies a basket's header.
393 =item C<$basketno> is the "basketno" field in the "aqbasket" table;
395 =item C<$basketname> is the "basketname" field in the "aqbasket" table;
397 =item C<$note> is the "note" field in the "aqbasket" table;
399 =item C<$booksellernote> is the "booksellernote" field in the "aqbasket" table;
401 =item C<$contractnumber> is the "contractnumber" (foreign) key in the "aqbasket" table.
407 sub ModBasketHeader {
408 my ($basketno, $basketname, $note, $booksellernote, $contractnumber) = @_;
409 my $query = "UPDATE aqbasket SET basketname=?, note=?, booksellernote=? WHERE basketno=?";
410 my $dbh = C4::Context->dbh;
411 my $sth = $dbh->prepare($query);
412 $sth->execute($basketname,$note,$booksellernote,$basketno);
413 if ( $contractnumber ) {
414 my $query2 ="UPDATE aqbasket SET contractnumber=? WHERE basketno=?";
415 my $sth2 = $dbh->prepare($query2);
416 $sth2->execute($contractnumber,$basketno);
422 #------------------------------------------------------------#
424 =head3 GetBasketsByBookseller
426 @results = &GetBasketsByBookseller($booksellerid, $extra);
428 Returns a list of hashes of all the baskets that belong to bookseller 'booksellerid'.
432 =item C<$booksellerid> is the 'id' field of the bookseller in the aqbooksellers table
434 =item C<$extra> is the extra sql parameters, can be
436 $extra->{groupby}: group baskets by column
437 ex. $extra->{groupby} = aqbasket.basketgroupid
438 $extra->{orderby}: order baskets by column
439 $extra->{limit}: limit number of results (can be helpful for pagination)
445 sub GetBasketsByBookseller {
446 my ($booksellerid, $extra) = @_;
447 my $query = "SELECT * FROM aqbasket WHERE booksellerid=?";
449 if ($extra->{groupby}) {
450 $query .= " GROUP by $extra->{groupby}";
452 if ($extra->{orderby}){
453 $query .= " ORDER by $extra->{orderby}";
455 if ($extra->{limit}){
456 $query .= " LIMIT $extra->{limit}";
459 my $dbh = C4::Context->dbh;
460 my $sth = $dbh->prepare($query);
461 $sth->execute($booksellerid);
462 my $results = $sth->fetchall_arrayref({});
467 #------------------------------------------------------------#
469 =head3 GetBasketsByBasketgroup
471 $baskets = &GetBasketsByBasketgroup($basketgroupid);
473 Returns a reference to all baskets that belong to basketgroup $basketgroupid.
477 sub GetBasketsByBasketgroup {
478 my $basketgroupid = shift;
479 my $query = "SELECT * FROM aqbasket
480 LEFT JOIN aqcontract USING(contractnumber) WHERE basketgroupid=?";
481 my $dbh = C4::Context->dbh;
482 my $sth = $dbh->prepare($query);
483 $sth->execute($basketgroupid);
484 my $results = $sth->fetchall_arrayref({});
489 #------------------------------------------------------------#
491 =head3 NewBasketgroup
493 $basketgroupid = NewBasketgroup(\%hashref);
495 Adds a basketgroup to the aqbasketgroups table, and add the initial baskets to it.
497 $hashref->{'booksellerid'} is the 'id' field of the bookseller in the aqbooksellers table,
499 $hashref->{'name'} is the 'name' field of the basketgroup in the aqbasketgroups table,
501 $hashref->{'basketlist'} is a list reference of the 'id's of the baskets that belong to this group,
503 $hashref->{'deliveryplace'} is the 'deliveryplace' field of the basketgroup in the aqbasketgroups table,
505 $hashref->{'deliverycomment'} is the 'deliverycomment' field of the basketgroup in the aqbasketgroups table,
507 $hashref->{'closed'} is the 'closed' field of the aqbasketgroups table, it is false if 0, true otherwise.
512 my $basketgroupinfo = shift;
513 die "booksellerid is required to create a basketgroup" unless $basketgroupinfo->{'booksellerid'};
514 my $query = "INSERT INTO aqbasketgroups (";
516 foreach my $field ('name', 'deliveryplace', 'deliverycomment', 'closed') {
517 if ( $basketgroupinfo->{$field} ) {
518 $query .= "$field, ";
519 push(@params, $basketgroupinfo->{$field});
522 $query .= "booksellerid) VALUES (";
527 push(@params, $basketgroupinfo->{'booksellerid'});
528 my $dbh = C4::Context->dbh;
529 my $sth = $dbh->prepare($query);
530 $sth->execute(@params);
531 my $basketgroupid = $dbh->{'mysql_insertid'};
532 if( $basketgroupinfo->{'basketlist'} ) {
533 foreach my $basketno (@{$basketgroupinfo->{'basketlist'}}) {
534 my $query2 = "UPDATE aqbasket SET basketgroupid=? WHERE basketno=?";
535 my $sth2 = $dbh->prepare($query2);
536 $sth2->execute($basketgroupid, $basketno);
539 return $basketgroupid;
542 #------------------------------------------------------------#
544 =head3 ModBasketgroup
546 ModBasketgroup(\%hashref);
548 Modifies a basketgroup in the aqbasketgroups table, and add the baskets to it.
550 $hashref->{'id'} is the 'id' field of the basketgroup in the aqbasketgroup table, this parameter is mandatory,
552 $hashref->{'name'} is the 'name' field of the basketgroup in the aqbasketgroups table,
554 $hashref->{'basketlist'} is a list reference of the 'id's of the baskets that belong to this group,
556 $hashref->{'billingplace'} is the 'billingplace' field of the basketgroup in the aqbasketgroups table,
558 $hashref->{'deliveryplace'} is the 'deliveryplace' field of the basketgroup in the aqbasketgroups table,
560 $hashref->{'deliverycomment'} is the 'deliverycomment' field of the basketgroup in the aqbasketgroups table,
562 $hashref->{'closed'} is the 'closed' field of the aqbasketgroups table, it is false if 0, true otherwise.
567 my $basketgroupinfo = shift;
568 die "basketgroup id is required to edit a basketgroup" unless $basketgroupinfo->{'id'};
569 my $dbh = C4::Context->dbh;
570 my $query = "UPDATE aqbasketgroups SET ";
572 foreach my $field (qw(name billingplace deliveryplace freedeliveryplace deliverycomment closed)) {
573 if ( defined $basketgroupinfo->{$field} ) {
574 $query .= "$field=?, ";
575 push(@params, $basketgroupinfo->{$field});
580 $query .= " WHERE id=?";
581 push(@params, $basketgroupinfo->{'id'});
582 my $sth = $dbh->prepare($query);
583 $sth->execute(@params);
585 $sth = $dbh->prepare('UPDATE aqbasket SET basketgroupid = NULL WHERE basketgroupid = ?');
586 $sth->execute($basketgroupinfo->{'id'});
588 if($basketgroupinfo->{'basketlist'} && @{$basketgroupinfo->{'basketlist'}}){
589 $sth = $dbh->prepare("UPDATE aqbasket SET basketgroupid=? WHERE basketno=?");
590 foreach my $basketno (@{$basketgroupinfo->{'basketlist'}}) {
591 $sth->execute($basketgroupinfo->{'id'}, $basketno);
598 #------------------------------------------------------------#
600 =head3 DelBasketgroup
602 DelBasketgroup($basketgroupid);
604 Deletes a basketgroup in the aqbasketgroups table, and removes the reference to it from the baskets,
608 =item C<$basketgroupid> is the 'id' field of the basket in the aqbasketgroup table
615 my $basketgroupid = shift;
616 die "basketgroup id is required to edit a basketgroup" unless $basketgroupid;
617 my $query = "DELETE FROM aqbasketgroups WHERE id=?";
618 my $dbh = C4::Context->dbh;
619 my $sth = $dbh->prepare($query);
620 $sth->execute($basketgroupid);
624 #------------------------------------------------------------#
627 =head2 FUNCTIONS ABOUT ORDERS
629 =head3 GetBasketgroup
631 $basketgroup = &GetBasketgroup($basketgroupid);
633 Returns a reference to the hash containing all infermation about the basketgroup.
638 my $basketgroupid = shift;
639 die "basketgroup id is required to edit a basketgroup" unless $basketgroupid;
640 my $query = "SELECT * FROM aqbasketgroups WHERE id=?";
641 my $dbh = C4::Context->dbh;
642 my $sth = $dbh->prepare($query);
643 $sth->execute($basketgroupid);
644 my $result = $sth->fetchrow_hashref;
649 #------------------------------------------------------------#
651 =head3 GetBasketgroups
653 $basketgroups = &GetBasketgroups($booksellerid);
655 Returns a reference to the array of all the basketgroups of bookseller $booksellerid.
659 sub GetBasketgroups {
660 my $booksellerid = shift;
661 die "bookseller id is required to edit a basketgroup" unless $booksellerid;
662 my $query = "SELECT * FROM aqbasketgroups WHERE booksellerid=? ORDER BY `id` DESC";
663 my $dbh = C4::Context->dbh;
664 my $sth = $dbh->prepare($query);
665 $sth->execute($booksellerid);
666 my $results = $sth->fetchall_arrayref({});
671 #------------------------------------------------------------#
673 =head2 FUNCTIONS ABOUT ORDERS
677 #------------------------------------------------------------#
679 =head3 GetPendingOrders
681 $orders = &GetPendingOrders($booksellerid, $grouped, $owner);
683 Finds pending orders from the bookseller with the given ID. Ignores
684 completed and cancelled orders.
686 C<$booksellerid> contains the bookseller identifier
687 C<$grouped> contains 0 or 1. 0 means returns the list, 1 means return the total
688 C<$owner> contains 0 or 1. 0 means any owner. 1 means only the list of orders entered by the user itself.
690 C<$orders> is a reference-to-array; each element is a
691 reference-to-hash with the following fields:
692 C<$grouped> is a boolean that, if set to 1 will group all order lines of the same basket
693 in a single result line
697 =item C<authorizedby>
705 These give the value of the corresponding field in the aqorders table
706 of the Koha database.
708 Results are ordered from most to least recent.
712 sub GetPendingOrders {
713 my ($supplierid,$grouped,$owner,$basketno) = @_;
714 my $dbh = C4::Context->dbh;
716 SELECT ".($grouped?"count(*),":"")."aqbasket.basketno,
717 surname,firstname,aqorders.*,biblio.*,biblioitems.isbn,
718 aqbasket.closedate, aqbasket.creationdate, aqbasket.basketname
720 LEFT JOIN aqbasket ON aqbasket.basketno=aqorders.basketno
721 LEFT JOIN borrowers ON aqbasket.authorisedby=borrowers.borrowernumber
722 LEFT JOIN biblio ON biblio.biblionumber=aqorders.biblionumber
723 LEFT JOIN biblioitems ON biblioitems.biblionumber=biblio.biblionumber
725 AND (quantity > quantityreceived OR quantityreceived is NULL)
726 AND datecancellationprinted IS NULL";
727 my @query_params = ( $supplierid );
728 my $userenv = C4::Context->userenv;
729 if ( C4::Context->preference("IndependantBranches") ) {
730 if ( ($userenv) && ( $userenv->{flags} != 1 ) ) {
731 $strsth .= " and (borrowers.branchcode = ?
732 or borrowers.branchcode = '')";
733 push @query_params, $userenv->{branch};
737 $strsth .= " AND aqbasket.authorisedby=? ";
738 push @query_params, $userenv->{'number'};
741 $strsth .= " AND aqbasket.basketno=? ";
742 push @query_params, $basketno;
744 $strsth .= " group by aqbasket.basketno" if $grouped;
745 $strsth .= " order by aqbasket.basketno";
747 my $sth = $dbh->prepare($strsth);
748 $sth->execute( @query_params );
749 my $results = $sth->fetchall_arrayref({});
754 #------------------------------------------------------------#
758 @orders = &GetOrders($basketnumber, $orderby);
760 Looks up the pending (non-cancelled) orders with the given basket
761 number. If C<$booksellerID> is non-empty, only orders from that seller
765 C<&basket> returns a two-element array. C<@orders> is an array of
766 references-to-hash, whose keys are the fields from the aqorders,
767 biblio, and biblioitems tables in the Koha database.
772 my ( $basketno, $orderby ) = @_;
773 my $dbh = C4::Context->dbh;
775 SELECT biblio.*,biblioitems.*,
780 LEFT JOIN aqbudgets ON aqbudgets.budget_id = aqorders.budget_id
781 LEFT JOIN biblio ON biblio.biblionumber = aqorders.biblionumber
782 LEFT JOIN biblioitems ON biblioitems.biblionumber =biblio.biblionumber
784 AND (datecancellationprinted IS NULL OR datecancellationprinted='0000-00-00')
787 $orderby = "biblioitems.publishercode,biblio.title" unless $orderby;
788 $query .= " ORDER BY $orderby";
789 my $sth = $dbh->prepare($query);
790 $sth->execute($basketno);
791 my $results = $sth->fetchall_arrayref({});
796 #------------------------------------------------------------#
798 =head3 GetOrderNumber
800 $ordernumber = &GetOrderNumber($biblioitemnumber, $biblionumber);
802 Looks up the ordernumber with the given biblionumber and biblioitemnumber.
804 Returns the number of this order.
808 =item C<$ordernumber> is the order number.
815 my ( $biblionumber,$biblioitemnumber ) = @_;
816 my $dbh = C4::Context->dbh;
821 AND biblioitemnumber=?
823 my $sth = $dbh->prepare($query);
824 $sth->execute( $biblionumber, $biblioitemnumber );
826 return $sth->fetchrow;
829 #------------------------------------------------------------#
833 $order = &GetOrder($ordernumber);
835 Looks up an order by order number.
837 Returns a reference-to-hash describing the order. The keys of
838 C<$order> are fields from the biblio, biblioitems, aqorders tables of the Koha database.
843 my ($ordernumber) = @_;
844 my $dbh = C4::Context->dbh;
846 SELECT biblioitems.*, biblio.*, aqorders.*
848 LEFT JOIN biblio on biblio.biblionumber=aqorders.biblionumber
849 LEFT JOIN biblioitems on biblioitems.biblionumber=aqorders.biblionumber
850 WHERE aqorders.ordernumber=?
853 my $sth= $dbh->prepare($query);
854 $sth->execute($ordernumber);
855 my $data = $sth->fetchrow_hashref;
860 #------------------------------------------------------------#
864 &NewOrder(\%hashref);
866 Adds a new order to the database. Any argument that isn't described
867 below is the new value of the field with the same name in the aqorders
868 table of the Koha database.
872 =item $hashref->{'basketno'} is the basketno foreign key in aqorders, it is mandatory
874 =item $hashref->{'ordernumber'} is a "minimum order number."
876 =item $hashref->{'budgetdate'} is effectively ignored.
877 If it's undef (anything false) or the string 'now', the current day is used.
878 Else, the upcoming July 1st is used.
880 =item $hashref->{'subscription'} may be either "yes", or anything else for "no".
882 =item $hashref->{'uncertainprice'} may be 0 for "the price is known" or 1 for "the price is uncertain"
884 =item defaults entrydate to Now
886 The following keys are used: "biblionumber", "title", "basketno", "quantity", "notes", "biblioitemnumber", "rrp", "ecost", "gst", "unitprice", "subscription", "sort1", "sort2", "booksellerinvoicenumber", "listprice", "budgetdate", "purchaseordernumber", "branchcode", "booksellerinvoicenumber", "bookfundid".
893 my $orderinfo = shift;
894 #### ------------------------------
895 my $dbh = C4::Context->dbh;
899 # if these parameters are missing, we can't continue
900 for my $key (qw/basketno quantity biblionumber budget_id/) {
901 croak "Mandatory parameter $key missing" unless $orderinfo->{$key};
904 if ( defined $orderinfo->{subscription} && $orderinfo->{'subscription'} eq 'yes' ) {
905 $orderinfo->{'subscription'} = 1;
907 $orderinfo->{'subscription'} = 0;
909 $orderinfo->{'entrydate'} ||= C4::Dates->new()->output("iso");
910 if (!$orderinfo->{quantityreceived}) {
911 $orderinfo->{quantityreceived} = 0;
914 my $ordernumber=InsertInTable("aqorders",$orderinfo);
915 return ( $orderinfo->{'basketno'}, $ordernumber );
920 #------------------------------------------------------------#
929 #my ($biblioitemnumber,$ordernumber, $biblionumber) = @_;
930 my ($itemnumber, $ordernumber) = @_;
931 my $dbh = C4::Context->dbh;
933 INSERT INTO aqorders_items
934 (itemnumber, ordernumber)
937 my $sth = $dbh->prepare($query);
938 $sth->execute( $itemnumber, $ordernumber);
941 #------------------------------------------------------------#
945 &ModOrder(\%hashref);
947 Modifies an existing order. Updates the order with order number
948 $hashref->{'ordernumber'} and biblionumber $hashref->{'biblionumber'}. All
949 other keys of the hash update the fields with the same name in the aqorders
950 table of the Koha database.
955 my $orderinfo = shift;
957 die "Ordernumber is required" if $orderinfo->{'ordernumber'} eq '' ;
958 die "Biblionumber is required" if $orderinfo->{'biblionumber'} eq '';
960 my $dbh = C4::Context->dbh;
963 # update uncertainprice to an integer, just in case (under FF, checked boxes have the value "ON" by default)
964 $orderinfo->{uncertainprice}=1 if $orderinfo->{uncertainprice};
966 # delete($orderinfo->{'branchcode'});
967 # the hash contains a lot of entries not in aqorders, so get the columns ...
968 my $sth = $dbh->prepare("SELECT * FROM aqorders LIMIT 1;");
970 my $colnames = $sth->{NAME};
971 my $query = "UPDATE aqorders SET ";
973 foreach my $orderinfokey (grep(!/ordernumber/, keys %$orderinfo)){
974 # ... and skip hash entries that are not in the aqorders table
975 # FIXME : probably not the best way to do it (would be better to have a correct hash)
976 next unless grep(/^$orderinfokey$/, @$colnames);
977 $query .= "$orderinfokey=?, ";
978 push(@params, $orderinfo->{$orderinfokey});
981 $query .= "timestamp=NOW() WHERE ordernumber=?";
982 # push(@params, $specorderinfo{'ordernumber'});
983 push(@params, $orderinfo->{'ordernumber'} );
984 $sth = $dbh->prepare($query);
985 $sth->execute(@params);
989 #------------------------------------------------------------#
993 &ModOrderItem(\%hashref);
995 Modifies the itemnumber in the aqorders_items table. The input hash needs three entities:
999 =item - itemnumber: the old itemnumber
1000 =item - ordernumber: the order this item is attached to
1001 =item - newitemnumber: the new itemnumber we want to attach the line to
1008 my $orderiteminfo = shift;
1009 if (! $orderiteminfo->{'ordernumber'} || ! $orderiteminfo->{'itemnumber'} || ! $orderiteminfo->{'newitemnumber'}){
1010 die "Ordernumber, itemnumber and newitemnumber is required";
1013 my $dbh = C4::Context->dbh;
1015 my $query = "UPDATE aqorders_items set itemnumber=? where itemnumber=? and ordernumber=?";
1016 my @params = ($orderiteminfo->{'newitemnumber'}, $orderiteminfo->{'itemnumber'}, $orderiteminfo->{'ordernumber'});
1017 my $sth = $dbh->prepare($query);
1018 $sth->execute(@params);
1022 #------------------------------------------------------------#
1025 =head3 ModOrderBibliotemNumber
1027 &ModOrderBiblioitemNumber($biblioitemnumber,$ordernumber, $biblionumber);
1029 Modifies the biblioitemnumber for an existing order.
1030 Updates the order with order number C<$ordernum> and biblionumber C<$biblionumber>.
1034 #FIXME: is this used at all?
1035 sub ModOrderBiblioitemNumber {
1036 my ($biblioitemnumber,$ordernumber, $biblionumber) = @_;
1037 my $dbh = C4::Context->dbh;
1040 SET biblioitemnumber = ?
1041 WHERE ordernumber = ?
1042 AND biblionumber = ?";
1043 my $sth = $dbh->prepare($query);
1044 $sth->execute( $biblioitemnumber, $ordernumber, $biblionumber );
1047 =head3 GetCancelledOrders
1049 my @orders = GetCancelledOrders($basketno, $orderby);
1051 Returns cancelled orders for a basket
1055 sub GetCancelledOrders {
1056 my ( $basketno, $orderby ) = @_;
1058 return () unless $basketno;
1060 my $dbh = C4::Context->dbh;
1062 SELECT biblio.*, biblioitems.*, aqorders.*, aqbudgets.*
1064 LEFT JOIN aqbudgets ON aqbudgets.budget_id = aqorders.budget_id
1065 LEFT JOIN biblio ON biblio.biblionumber = aqorders.biblionumber
1066 LEFT JOIN biblioitems ON biblioitems.biblionumber = biblio.biblionumber
1068 AND (datecancellationprinted IS NOT NULL
1069 AND datecancellationprinted <> '0000-00-00')
1072 $orderby = "aqorders.datecancellationprinted desc, aqorders.timestamp desc"
1074 $query .= " ORDER BY $orderby";
1075 my $sth = $dbh->prepare($query);
1076 $sth->execute($basketno);
1077 my $results = $sth->fetchall_arrayref( {} );
1083 #------------------------------------------------------------#
1085 =head3 ModReceiveOrder
1087 &ModReceiveOrder($biblionumber, $ordernumber, $quantityreceived, $user,
1088 $unitprice, $booksellerinvoicenumber, $biblioitemnumber,
1089 $freight, $bookfund, $rrp);
1091 Updates an order, to reflect the fact that it was received, at least
1092 in part. All arguments not mentioned below update the fields with the
1093 same name in the aqorders table of the Koha database.
1095 If a partial order is received, splits the order into two. The received
1096 portion must have a booksellerinvoicenumber.
1098 Updates the order with bibilionumber C<$biblionumber> and ordernumber
1104 sub ModReceiveOrder {
1106 $biblionumber, $ordernumber, $quantrec, $user, $cost,
1107 $invoiceno, $freight, $rrp, $budget_id, $datereceived
1110 my $dbh = C4::Context->dbh;
1111 # warn "DATE BEFORE : $daterecieved";
1112 # $daterecieved=POSIX::strftime("%Y-%m-%d",CORE::localtime) unless $daterecieved;
1113 # warn "DATE REC : $daterecieved";
1114 $datereceived = C4::Dates->output('iso') unless $datereceived;
1115 my $suggestionid = GetSuggestionFromBiblionumber( $dbh, $biblionumber );
1116 if ($suggestionid) {
1117 ModSuggestion( {suggestionid=>$suggestionid,
1118 STATUS=>'AVAILABLE',
1119 biblionumber=> $biblionumber}
1123 my $sth=$dbh->prepare("
1124 SELECT * FROM aqorders
1125 WHERE biblionumber=? AND aqorders.ordernumber=?");
1127 $sth->execute($biblionumber,$ordernumber);
1128 my $order = $sth->fetchrow_hashref();
1131 if ( $order->{quantity} > $quantrec ) {
1132 $sth=$dbh->prepare("
1134 SET quantityreceived=?
1136 , booksellerinvoicenumber=?
1141 WHERE biblionumber=? AND ordernumber=?");
1143 $sth->execute($quantrec,$datereceived,$invoiceno,$cost,$freight,$rrp,$quantrec,$biblionumber,$ordernumber);
1146 # create a new order for the remaining items, and set its bookfund.
1147 foreach my $orderkey ( "linenumber", "allocation" ) {
1148 delete($order->{'$orderkey'});
1150 $order->{'quantity'} -= $quantrec;
1151 $order->{'quantityreceived'} = 0;
1152 my $newOrder = NewOrder($order);
1154 $sth=$dbh->prepare("update aqorders
1155 set quantityreceived=?,datereceived=?,booksellerinvoicenumber=?,
1156 unitprice=?,freight=?,rrp=?
1157 where biblionumber=? and ordernumber=?");
1158 $sth->execute($quantrec,$datereceived,$invoiceno,$cost,$freight,$rrp,$biblionumber,$ordernumber);
1161 return $datereceived;
1163 #------------------------------------------------------------#
1167 @results = &SearchOrder($search, $biblionumber, $complete);
1169 Searches for orders.
1171 C<$search> may take one of several forms: if it is an ISBN,
1172 C<&ordersearch> returns orders with that ISBN. If C<$search> is an
1173 order number, C<&ordersearch> returns orders with that order number
1174 and biblionumber C<$biblionumber>. Otherwise, C<$search> is considered
1175 to be a space-separated list of search terms; in this case, all of the
1176 terms must appear in the title (matching the beginning of title
1179 If C<$complete> is C<yes>, the results will include only completed
1180 orders. In any case, C<&ordersearch> ignores cancelled orders.
1182 C<&ordersearch> returns an array.
1183 C<@results> is an array of references-to-hash with the following keys:
1189 =item C<seriestitle>
1200 #### -------- SearchOrder-------------------------------
1201 my ($ordernumber, $search, $supplierid, $basket) = @_;
1203 my $dbh = C4::Context->dbh;
1208 LEFT JOIN biblio ON aqorders.biblionumber=biblio.biblionumber
1209 LEFT JOIN biblioitems ON biblioitems.biblionumber=biblio.biblionumber
1210 LEFT JOIN aqbasket ON aqorders.basketno = aqbasket.basketno
1211 WHERE (datecancellationprinted is NULL)";
1214 $query .= " AND (aqorders.ordernumber=?)";
1215 push @args, $ordernumber;
1218 $query .= " AND (biblio.title like ? OR biblio.author LIKE ? OR biblioitems.isbn like ?)";
1219 push @args, ("%$search%","%$search%","%$search%");
1222 $query .= "AND aqbasket.booksellerid = ?";
1223 push @args, $supplierid;
1226 $query .= "AND aqorders.basketno = ?";
1227 push @args, $basket;
1230 my $sth = $dbh->prepare($query);
1231 $sth->execute(@args);
1232 my $results = $sth->fetchall_arrayref({});
1237 #------------------------------------------------------------#
1241 &DelOrder($biblionumber, $ordernumber);
1243 Cancel the order with the given order and biblio numbers. It does not
1244 delete any entries in the aqorders table, it merely marks them as
1250 my ( $bibnum, $ordernumber ) = @_;
1251 my $dbh = C4::Context->dbh;
1254 SET datecancellationprinted=now()
1255 WHERE biblionumber=? AND ordernumber=?
1257 my $sth = $dbh->prepare($query);
1258 $sth->execute( $bibnum, $ordernumber );
1260 my @itemnumbers = GetItemnumbersFromOrder( $ordernumber );
1261 foreach my $itemnumber (@itemnumbers){
1262 C4::Items::DelItem( $dbh, $bibnum, $itemnumber );
1267 =head2 FUNCTIONS ABOUT PARCELS
1271 #------------------------------------------------------------#
1275 @results = &GetParcel($booksellerid, $code, $date);
1277 Looks up all of the received items from the supplier with the given
1278 bookseller ID at the given date, for the given code (bookseller Invoice number). Ignores cancelled and completed orders.
1280 C<@results> is an array of references-to-hash. The keys of each element are fields from
1281 the aqorders, biblio, and biblioitems tables of the Koha database.
1283 C<@results> is sorted alphabetically by book title.
1288 #gets all orders from a certain supplier, orders them alphabetically
1289 my ( $supplierid, $code, $datereceived ) = @_;
1290 my $dbh = C4::Context->dbh;
1293 if $code; # add % if we search on a given code (otherwise, let him empty)
1295 SELECT authorisedby,
1300 aqorders.biblionumber,
1301 aqorders.ordernumber,
1303 aqorders.quantityreceived,
1310 LEFT JOIN aqbasket ON aqbasket.basketno=aqorders.basketno
1311 LEFT JOIN borrowers ON aqbasket.authorisedby=borrowers.borrowernumber
1312 LEFT JOIN biblio ON aqorders.biblionumber=biblio.biblionumber
1314 aqbasket.booksellerid = ?
1315 AND aqorders.booksellerinvoicenumber LIKE ?
1316 AND aqorders.datereceived = ? ";
1318 my @query_params = ( $supplierid, $code, $datereceived );
1319 if ( C4::Context->preference("IndependantBranches") ) {
1320 my $userenv = C4::Context->userenv;
1321 if ( ($userenv) && ( $userenv->{flags} != 1 ) ) {
1322 $strsth .= " and (borrowers.branchcode = ?
1323 or borrowers.branchcode = '')";
1324 push @query_params, $userenv->{branch};
1327 $strsth .= " ORDER BY aqbasket.basketno";
1328 # ## parcelinformation : $strsth
1329 my $sth = $dbh->prepare($strsth);
1330 $sth->execute( @query_params );
1331 while ( my $data = $sth->fetchrow_hashref ) {
1332 push( @results, $data );
1334 # ## countparcelbiblio: scalar(@results)
1340 #------------------------------------------------------------#
1344 $results = &GetParcels($bookseller, $order, $code, $datefrom, $dateto);
1346 get a lists of parcels.
1353 is the bookseller this function has to get parcels.
1356 To know on what criteria the results list has to be ordered.
1359 is the booksellerinvoicenumber.
1361 =item $datefrom & $dateto
1362 to know on what date this function has to filter its search.
1367 a pointer on a hash list containing parcel informations as such :
1373 =item Last operation
1375 =item Number of biblio
1377 =item Number of items
1384 my ($bookseller,$order, $code, $datefrom, $dateto) = @_;
1385 my $dbh = C4::Context->dbh;
1386 my @query_params = ();
1388 SELECT aqorders.booksellerinvoicenumber,
1389 datereceived,purchaseordernumber,
1390 count(DISTINCT biblionumber) AS biblio,
1391 sum(quantity) AS itemsexpected,
1392 sum(quantityreceived) AS itemsreceived
1393 FROM aqorders LEFT JOIN aqbasket ON aqbasket.basketno = aqorders.basketno
1394 WHERE aqbasket.booksellerid = ? and datereceived IS NOT NULL
1396 push @query_params, $bookseller;
1398 if ( defined $code ) {
1399 $strsth .= ' and aqorders.booksellerinvoicenumber like ? ';
1400 # add a % to the end of the code to allow stemming.
1401 push @query_params, "$code%";
1404 if ( defined $datefrom ) {
1405 $strsth .= ' and datereceived >= ? ';
1406 push @query_params, $datefrom;
1409 if ( defined $dateto ) {
1410 $strsth .= 'and datereceived <= ? ';
1411 push @query_params, $dateto;
1414 $strsth .= "group by aqorders.booksellerinvoicenumber,datereceived ";
1416 # can't use a placeholder to place this column name.
1417 # but, we could probably be checking to make sure it is a column that will be fetched.
1418 $strsth .= "order by $order " if ($order);
1420 my $sth = $dbh->prepare($strsth);
1422 $sth->execute( @query_params );
1423 my $results = $sth->fetchall_arrayref({});
1428 #------------------------------------------------------------#
1430 =head3 GetLateOrders
1432 @results = &GetLateOrders;
1434 Searches for bookseller with late orders.
1437 the table of supplier with late issues. This table is full of hashref.
1443 my $supplierid = shift;
1446 my $dbh = C4::Context->dbh;
1448 #BEWARE, order of parenthesis and LEFT JOIN is important for speed
1449 my $dbdriver = C4::Context->config("db_scheme") || "mysql";
1451 my @query_params = ($delay); # delay is the first argument regardless
1453 SELECT aqbasket.basketno,
1454 aqorders.ordernumber,
1455 DATE(aqbasket.closedate) AS orderdate,
1456 aqorders.rrp AS unitpricesupplier,
1457 aqorders.ecost AS unitpricelib,
1458 aqorders.claims_count AS claims_count,
1459 aqorders.claimed_date AS claimed_date,
1460 aqbudgets.budget_name AS budget,
1461 borrowers.branchcode AS branch,
1462 aqbooksellers.name AS supplier,
1463 aqbooksellers.id AS supplierid,
1464 biblio.author, biblio.title,
1465 biblioitems.publishercode AS publisher,
1466 biblioitems.publicationyear,
1470 aqorders LEFT JOIN biblio ON biblio.biblionumber = aqorders.biblionumber
1471 LEFT JOIN biblioitems ON biblioitems.biblionumber = biblio.biblionumber
1472 LEFT JOIN aqbudgets ON aqorders.budget_id = aqbudgets.budget_id,
1473 aqbasket LEFT JOIN borrowers ON aqbasket.authorisedby = borrowers.borrowernumber
1474 LEFT JOIN aqbooksellers ON aqbasket.booksellerid = aqbooksellers.id
1475 WHERE aqorders.basketno = aqbasket.basketno
1476 AND ( datereceived = ''
1477 OR datereceived IS NULL
1478 OR aqorders.quantityreceived < aqorders.quantity
1480 AND (aqorders.datecancellationprinted IS NULL OR aqorders.datecancellationprinted='0000-00-00')
1483 if ($dbdriver eq "mysql") {
1485 aqorders.quantity - IFNULL(aqorders.quantityreceived,0) AS quantity,
1486 (aqorders.quantity - IFNULL(aqorders.quantityreceived,0)) * aqorders.rrp AS subtotal,
1487 DATEDIFF(CURDATE( ),closedate) AS latesince
1489 $from .= " AND (closedate <= DATE_SUB(CURDATE( ),INTERVAL ? DAY)) ";
1491 HAVING quantity <> 0
1492 AND unitpricesupplier <> 0
1493 AND unitpricelib <> 0
1496 # FIXME: account for IFNULL as above
1498 aqorders.quantity AS quantity,
1499 aqorders.quantity * aqorders.rrp AS subtotal,
1500 (CURDATE - closedate) AS latesince
1502 $from .= " AND (closedate <= (CURDATE -(INTERVAL ? DAY)) ";
1504 if (defined $supplierid) {
1505 $from .= ' AND aqbasket.booksellerid = ? ';
1506 push @query_params, $supplierid;
1508 if (defined $branch) {
1509 $from .= ' AND borrowers.branchcode LIKE ? ';
1510 push @query_params, $branch;
1512 if (C4::Context->preference("IndependantBranches")
1513 && C4::Context->userenv
1514 && C4::Context->userenv->{flags} != 1 ) {
1515 $from .= ' AND borrowers.branchcode LIKE ? ';
1516 push @query_params, C4::Context->userenv->{branch};
1518 my $query = "$select $from $having\nORDER BY latesince, basketno, borrowers.branchcode, supplier";
1519 $debug and print STDERR "GetLateOrders query: $query\nGetLateOrders args: " . join(" ",@query_params);
1520 my $sth = $dbh->prepare($query);
1521 $sth->execute(@query_params);
1523 while (my $data = $sth->fetchrow_hashref) {
1524 $data->{orderdate} = format_date($data->{orderdate});
1525 $data->{claimed_date} = format_date($data->{claimed_date});
1526 push @results, $data;
1531 #------------------------------------------------------------#
1535 (\@order_loop, $total_qty, $total_price, $total_qtyreceived) = GetHistory( %params );
1537 Retreives some acquisition history information
1545 basket - search both basket name and number
1546 booksellerinvoicenumber
1549 $order_loop is a list of hashrefs that each look like this:
1551 'author' => 'Twain, Mark',
1553 'biblionumber' => '215',
1555 'creationdate' => 'MM/DD/YYYY',
1556 'datereceived' => undef,
1559 'invoicenumber' => undef,
1561 'ordernumber' => '1',
1563 'quantityreceived' => undef,
1564 'title' => 'The Adventures of Huckleberry Finn'
1566 $total_qty is the sum of all of the quantities in $order_loop
1567 $total_price is the cost of each in $order_loop times the quantity
1568 $total_qtyreceived is the sum of all of the quantityreceived entries in $order_loop
1573 # don't run the query if there are no parameters (list would be too long for sure !)
1574 croak "No search params" unless @_;
1576 my $title = $params{title};
1577 my $author = $params{author};
1578 my $isbn = $params{isbn};
1579 my $name = $params{name};
1580 my $from_placed_on = $params{from_placed_on};
1581 my $to_placed_on = $params{to_placed_on};
1582 my $basket = $params{basket};
1583 my $booksellerinvoicenumber = $params{booksellerinvoicenumber};
1587 my $total_qtyreceived = 0;
1588 my $total_price = 0;
1590 my $dbh = C4::Context->dbh;
1597 aqbasket.basketname,
1598 aqbasket.basketgroupid,
1599 aqbasketgroups.name as groupname,
1601 aqbasket.creationdate,
1602 aqorders.datereceived,
1604 aqorders.quantityreceived,
1606 aqorders.ordernumber,
1607 aqorders.booksellerinvoicenumber as invoicenumber,
1608 aqbooksellers.id as id,
1609 aqorders.biblionumber
1611 LEFT JOIN aqbasket ON aqorders.basketno=aqbasket.basketno
1612 LEFT JOIN aqbasketgroups ON aqbasket.basketgroupid=aqbasketgroups.id
1613 LEFT JOIN aqbooksellers ON aqbasket.booksellerid=aqbooksellers.id
1614 LEFT JOIN biblioitems ON biblioitems.biblionumber=aqorders.biblionumber
1615 LEFT JOIN biblio ON biblio.biblionumber=aqorders.biblionumber";
1617 $query .= " LEFT JOIN borrowers ON aqbasket.authorisedby=borrowers.borrowernumber"
1618 if ( C4::Context->preference("IndependantBranches") );
1620 $query .= " WHERE (datecancellationprinted is NULL or datecancellationprinted='0000-00-00') ";
1622 my @query_params = ();
1625 $query .= " AND biblio.title LIKE ? ";
1626 $title =~ s/\s+/%/g;
1627 push @query_params, "%$title%";
1631 $query .= " AND biblio.author LIKE ? ";
1632 push @query_params, "%$author%";
1636 $query .= " AND biblioitems.isbn LIKE ? ";
1637 push @query_params, "%$isbn%";
1641 $query .= " AND aqbooksellers.name LIKE ? ";
1642 push @query_params, "%$name%";
1645 if ( $from_placed_on ) {
1646 $query .= " AND creationdate >= ? ";
1647 push @query_params, $from_placed_on;
1650 if ( $to_placed_on ) {
1651 $query .= " AND creationdate <= ? ";
1652 push @query_params, $to_placed_on;
1656 if ($basket =~ m/^\d+$/) {
1657 $query .= " AND aqorders.basketno = ? ";
1658 push @query_params, $basket;
1660 $query .= " AND aqbasket.basketname LIKE ? ";
1661 push @query_params, "%$basket%";
1665 if ($booksellerinvoicenumber) {
1666 $query .= " AND (aqorders.booksellerinvoicenumber LIKE ? OR aqbasket.booksellerinvoicenumber LIKE ?)";
1667 push @query_params, "%$booksellerinvoicenumber%", "%$booksellerinvoicenumber%";
1670 if ( C4::Context->preference("IndependantBranches") ) {
1671 my $userenv = C4::Context->userenv;
1672 if ( $userenv && ($userenv->{flags} || 0) != 1 ) {
1673 $query .= " AND (borrowers.branchcode = ? OR borrowers.branchcode ='' ) ";
1674 push @query_params, $userenv->{branch};
1677 $query .= " ORDER BY id";
1678 my $sth = $dbh->prepare($query);
1679 $sth->execute( @query_params );
1681 while ( my $line = $sth->fetchrow_hashref ) {
1682 $line->{count} = $cnt++;
1683 $line->{toggle} = 1 if $cnt % 2;
1684 push @order_loop, $line;
1685 $line->{creationdate} = format_date( $line->{creationdate} );
1686 $line->{datereceived} = format_date( $line->{datereceived} );
1687 $total_qty += $line->{'quantity'};
1688 $total_qtyreceived += $line->{'quantityreceived'};
1689 $total_price += $line->{'quantity'} * $line->{'ecost'};
1691 return \@order_loop, $total_qty, $total_price, $total_qtyreceived;
1694 =head2 GetRecentAcqui
1696 $results = GetRecentAcqui($days);
1698 C<$results> is a ref to a table which containts hashref
1702 sub GetRecentAcqui {
1704 my $dbh = C4::Context->dbh;
1708 ORDER BY timestamp DESC
1711 my $sth = $dbh->prepare($query);
1713 my $results = $sth->fetchall_arrayref({});
1719 $contractlist = &GetContracts($booksellerid, $activeonly);
1721 Looks up the contracts that belong to a bookseller
1723 Returns a list of contracts
1727 =item C<$booksellerid> is the "id" field in the "aqbooksellers" table.
1729 =item C<$activeonly> if exists get only contracts that are still active.
1736 my ( $booksellerid, $activeonly ) = @_;
1737 my $dbh = C4::Context->dbh;
1739 if (! $activeonly) {
1743 WHERE booksellerid=?
1748 WHERE booksellerid=?
1749 AND contractenddate >= CURDATE( )";
1751 my $sth = $dbh->prepare($query);
1752 $sth->execute( $booksellerid );
1754 while (my $data = $sth->fetchrow_hashref ) {
1755 push(@results, $data);
1761 #------------------------------------------------------------#
1765 $contract = &GetContract($contractID);
1767 Looks up the contract that has PRIMKEY (contractnumber) value $contractID
1774 my ( $contractno ) = @_;
1775 my $dbh = C4::Context->dbh;
1779 WHERE contractnumber=?
1782 my $sth = $dbh->prepare($query);
1783 $sth->execute( $contractno );
1784 my $result = $sth->fetchrow_hashref;
1792 &AddClaim($ordernumber);
1794 Add a claim for an order
1800 my ($ordernumber) = @_;
1801 my $dbh = C4::Context->dbh;
1804 claims_count = claims_count + 1,
1805 claimed_date = CURDATE()
1806 WHERE ordernumber = ?
1808 my $sth = $dbh->prepare($query);
1809 $sth->execute($ordernumber);
1818 Koha Development Team <http://koha-community.org/>