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
8 # under the terms of the GNU General Public License as published by
9 # the Free Software Foundation; either version 3 of the License, or
10 # (at your option) any later version.
12 # Koha is distributed in the hope that it will be useful, but
13 # WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 # GNU General Public License for more details.
17 # You should have received a copy of the GNU General Public License
18 # along with Koha; if not, see <http://www.gnu.org/licenses>.
29 use C4::Templates qw(gettemplate);
30 use Koha::DateUtils qw( dt_from_string output_pref );
31 use Koha::Acquisition::Baskets;
32 use Koha::Acquisition::Booksellers;
33 use Koha::Acquisition::Orders;
37 use Koha::Number::Price;
39 use Koha::CsvProfiles;
49 use vars qw(@ISA @EXPORT);
55 &GetBasket &NewBasket &CloseBasket &ReopenBasket &DelBasket &ModBasket
56 &GetBasketAsCSV &GetBasketGroupAsCSV
57 &GetBasketsByBookseller &GetBasketsByBasketgroup
58 &GetBasketsInfosByBookseller
60 &GetBasketUsers &ModBasketUsers
65 &ModBasketgroup &NewBasketgroup &DelBasketgroup &GetBasketgroup &CloseBasketgroup
66 &GetBasketgroups &ReOpenBasketgroup
68 &DelOrder &ModOrder &GetOrder &GetOrders &GetOrdersByBiblionumber
69 &GetLateOrders &GetOrderFromItemnumber
70 &SearchOrders &GetHistory &GetRecentAcqui
71 &ModReceiveOrder &CancelReceipt
73 &GetLastOrderNotReceivedFromSubscriptionid &GetLastOrderReceivedFromSubscriptionid
89 &GetBiblioCountByBasketno
95 &FillWithDefaultValues
106 sub GetOrderFromItemnumber {
107 my ($itemnumber) = @_;
108 my $dbh = C4::Context->dbh;
111 SELECT * from aqorders LEFT JOIN aqorders_items
112 ON ( aqorders.ordernumber = aqorders_items.ordernumber )
113 WHERE itemnumber = ? |;
115 my $sth = $dbh->prepare($query);
119 $sth->execute($itemnumber);
121 my $order = $sth->fetchrow_hashref;
128 C4::Acquisition - Koha functions for dealing with orders and acquisitions
136 The functions in this module deal with acquisitions, managing book
137 orders, basket and parcels.
141 =head2 FUNCTIONS ABOUT BASKETS
145 $aqbasket = &GetBasket($basketnumber);
147 get all basket informations in aqbasket for a given basket
149 B<returns:> informations for a given basket returned as a hashref.
155 my $dbh = C4::Context->dbh;
158 concat( b.firstname,' ',b.surname) AS authorisedbyname
160 LEFT JOIN borrowers b ON aqbasket.authorisedby=b.borrowernumber
163 my $sth=$dbh->prepare($query);
164 $sth->execute($basketno);
165 my $basket = $sth->fetchrow_hashref;
169 #------------------------------------------------------------#
173 $basket = &NewBasket( $booksellerid, $authorizedby, $basketname,
174 $basketnote, $basketbooksellernote, $basketcontractnumber, $deliveryplace, $billingplace, $is_standing, $create_items );
176 Create a new basket in aqbasket table
180 =item C<$booksellerid> is a foreign key in the aqbasket table
182 =item C<$authorizedby> is the username of who created the basket
186 The other parameters are optional, see ModBasketHeader for more info on them.
191 my ( $booksellerid, $authorisedby, $basketname, $basketnote,
192 $basketbooksellernote, $basketcontractnumber, $deliveryplace,
193 $billingplace, $is_standing, $create_items ) = @_;
194 my $dbh = C4::Context->dbh;
196 'INSERT INTO aqbasket (creationdate,booksellerid,authorisedby) '
197 . 'VALUES (now(),?,?)';
198 $dbh->do( $query, {}, $booksellerid, $authorisedby );
200 my $basket = $dbh->{mysql_insertid};
201 $basketname ||= q{}; # default to empty strings
203 $basketbooksellernote ||= q{};
204 ModBasketHeader( $basket, $basketname, $basketnote, $basketbooksellernote,
205 $basketcontractnumber, $booksellerid, $deliveryplace, $billingplace, $is_standing, $create_items );
209 #------------------------------------------------------------#
213 &CloseBasket($basketno);
215 close a basket (becomes unmodifiable, except for receives)
221 my $dbh = C4::Context->dbh;
222 $dbh->do('UPDATE aqbasket SET closedate=now() WHERE basketno=?', {}, $basketno );
225 q{UPDATE aqorders SET orderstatus = 'ordered' WHERE basketno = ? AND orderstatus NOT IN ( 'complete', 'cancelled')},
233 &ReopenBasket($basketno);
241 my $dbh = C4::Context->dbh;
242 $dbh->do( q{UPDATE aqbasket SET closedate=NULL WHERE basketno=?}, {}, $basketno );
246 SET orderstatus = 'new'
248 AND orderstatus NOT IN ( 'complete', 'cancelled' )
253 #------------------------------------------------------------#
255 =head3 GetBasketAsCSV
257 &GetBasketAsCSV($basketno);
259 Export a basket as CSV
261 $cgi parameter is needed for column name translation
266 my ($basketno, $cgi, $csv_profile_id) = @_;
267 my $basket = GetBasket($basketno);
268 my @orders = GetOrders($basketno);
269 my $contract = GetContract({
270 contractnumber => $basket->{'contractnumber'}
273 my $template = C4::Templates::gettemplate("acqui/csv/basket.tt", "intranet", $cgi);
275 if ($csv_profile_id) {
276 my $csv_profile = Koha::CsvProfiles->find( $csv_profile_id );
277 Koha::Exceptions::ObjectNotFound->throw( 'There is no valid csv profile given') unless $csv_profile;
279 my $csv = Text::CSV_XS->new({'quote_char'=>'"','escape_char'=>'"','sep_char'=>$csv_profile->csv_separator,'binary'=>1});
280 my $csv_profile_content = $csv_profile->content;
281 my ( @headers, @fields );
282 while ( $csv_profile_content =~ /
285 ([^\|]*) # fieldname (table.row or row)
289 my $field = ($2 eq '') ? $1 : $2;
291 $header =~ s/^\s+|\s+$//g; # Trim whitespaces
292 push @headers, $header;
294 $field =~ s/[^\.]*\.{1}//; # Remove the table name if exists.
295 $field =~ s/^\s+|\s+$//g; # Trim whitespaces
296 push @fields, $field;
298 for my $order (@orders) {
300 my $biblio = Koha::Biblios->find( $order->{biblionumber} );
301 my $biblioitem = $biblio->biblioitem;
302 $order = { %$order, %{ $biblioitem->unblessed } };
304 $order = {%$order, %$contract};
306 $order = {%$order, %$basket, %{ $biblio->unblessed }};
307 for my $field (@fields) {
308 push @row, $order->{$field};
312 my $content = join( $csv_profile->csv_separator, @headers ) . "\n";
313 for my $row ( @rows ) {
314 $csv->combine(@$row);
315 my $string = $csv->string;
316 $content .= $string . "\n";
321 foreach my $order (@orders) {
322 my $biblio = Koha::Biblios->find( $order->{biblionumber} );
323 my $biblioitem = $biblio->biblioitem;
325 contractname => $contract->{'contractname'},
326 ordernumber => $order->{'ordernumber'},
327 entrydate => $order->{'entrydate'},
328 isbn => $order->{'isbn'},
329 author => $biblio->author,
330 title => $biblio->title,
331 publicationyear => $biblioitem->publicationyear,
332 publishercode => $biblioitem->publishercode,
333 collectiontitle => $biblioitem->collectiontitle,
334 notes => $order->{'order_vendornote'},
335 quantity => $order->{'quantity'},
336 rrp => $order->{'rrp'},
338 for my $place ( qw( deliveryplace billingplace ) ) {
339 if ( my $library = Koha::Libraries->find( $row->{deliveryplace} ) ) {
340 $row->{$place} = $library->branchname
344 contractname author title publishercode collectiontitle notes
345 deliveryplace billingplace
347 # Double the quotes to not be interpreted as a field end
348 $row->{$_} =~ s/"/""/g if $row->{$_};
354 if(defined $a->{publishercode} and defined $b->{publishercode}) {
355 $a->{publishercode} cmp $b->{publishercode};
359 $template->param(rows => \@rows);
361 return $template->output;
366 =head3 GetBasketGroupAsCSV
368 &GetBasketGroupAsCSV($basketgroupid);
370 Export a basket group as CSV
372 $cgi parameter is needed for column name translation
376 sub GetBasketGroupAsCSV {
377 my ($basketgroupid, $cgi) = @_;
378 my $baskets = GetBasketsByBasketgroup($basketgroupid);
380 my $template = C4::Templates::gettemplate('acqui/csv/basketgroup.tt', 'intranet', $cgi);
383 for my $basket (@$baskets) {
384 my @orders = GetOrders( $basket->{basketno} );
385 my $contract = GetContract({
386 contractnumber => $basket->{contractnumber}
388 my $bookseller = Koha::Acquisition::Booksellers->find( $basket->{booksellerid} );
389 my $basketgroup = GetBasketgroup( $$basket{basketgroupid} );
391 foreach my $order (@orders) {
392 my $biblio = Koha::Biblios->find( $order->{biblionumber} );
393 my $biblioitem = $biblio->biblioitem;
395 clientnumber => $bookseller->accountnumber,
396 basketname => $basket->{basketname},
397 ordernumber => $order->{ordernumber},
398 author => $biblio->author,
399 title => $biblio->title,
400 publishercode => $biblioitem->publishercode,
401 publicationyear => $biblioitem->publicationyear,
402 collectiontitle => $biblioitem->collectiontitle,
403 isbn => $order->{isbn},
404 quantity => $order->{quantity},
405 rrp_tax_included => $order->{rrp_tax_included},
406 rrp_tax_excluded => $order->{rrp_tax_excluded},
407 discount => $bookseller->discount,
408 ecost_tax_included => $order->{ecost_tax_included},
409 ecost_tax_excluded => $order->{ecost_tax_excluded},
410 notes => $order->{order_vendornote},
411 entrydate => $order->{entrydate},
412 booksellername => $bookseller->name,
413 bookselleraddress => $bookseller->address1,
414 booksellerpostal => $bookseller->postal,
415 contractnumber => $contract->{contractnumber},
416 contractname => $contract->{contractname},
419 basketgroupdeliveryplace => $basketgroup->{deliveryplace},
420 basketgroupbillingplace => $basketgroup->{billingplace},
421 basketdeliveryplace => $basket->{deliveryplace},
422 basketbillingplace => $basket->{billingplace},
424 for my $place (qw( basketgroupdeliveryplace basketgroupbillingplace basketdeliveryplace basketbillingplace )) {
425 if ( my $library = Koha::Libraries->find( $temp->{$place} ) ) {
426 $row->{$place} = $library->branchname;
430 basketname author title publishercode collectiontitle notes
431 booksellername bookselleraddress booksellerpostal contractname
432 basketgroupdeliveryplace basketgroupbillingplace
433 basketdeliveryplace basketbillingplace
435 # Double the quotes to not be interpreted as a field end
436 $row->{$_} =~ s/"/""/g if $row->{$_};
441 $template->param(rows => \@rows);
443 return $template->output;
447 =head3 CloseBasketgroup
449 &CloseBasketgroup($basketgroupno);
455 sub CloseBasketgroup {
456 my ($basketgroupno) = @_;
457 my $dbh = C4::Context->dbh;
458 my $sth = $dbh->prepare("
459 UPDATE aqbasketgroups
463 $sth->execute($basketgroupno);
466 #------------------------------------------------------------#
468 =head3 ReOpenBaskergroup($basketgroupno)
470 &ReOpenBaskergroup($basketgroupno);
476 sub ReOpenBasketgroup {
477 my ($basketgroupno) = @_;
478 my $dbh = C4::Context->dbh;
479 my $sth = $dbh->prepare("
480 UPDATE aqbasketgroups
484 $sth->execute($basketgroupno);
487 #------------------------------------------------------------#
492 &DelBasket($basketno);
494 Deletes the basket that has basketno field $basketno in the aqbasket table.
498 =item C<$basketno> is the primary key of the basket in the aqbasket table.
505 my ( $basketno ) = @_;
506 my $query = "DELETE FROM aqbasket WHERE basketno=?";
507 my $dbh = C4::Context->dbh;
508 my $sth = $dbh->prepare($query);
509 $sth->execute($basketno);
513 #------------------------------------------------------------#
517 &ModBasket($basketinfo);
519 Modifies a basket, using a hashref $basketinfo for the relevant information, only $basketinfo->{'basketno'} is required.
523 =item C<$basketno> is the primary key of the basket in the aqbasket table.
530 my $basketinfo = shift;
531 my $query = "UPDATE aqbasket SET ";
533 foreach my $key (keys %$basketinfo){
534 if ($key ne 'basketno'){
535 $query .= "$key=?, ";
536 push(@params, $basketinfo->{$key} || undef );
539 # get rid of the "," at the end of $query
540 if (substr($query, length($query)-2) eq ', '){
545 $query .= "WHERE basketno=?";
546 push(@params, $basketinfo->{'basketno'});
547 my $dbh = C4::Context->dbh;
548 my $sth = $dbh->prepare($query);
549 $sth->execute(@params);
554 #------------------------------------------------------------#
556 =head3 ModBasketHeader
558 &ModBasketHeader($basketno, $basketname, $note, $booksellernote, $contractnumber, $booksellerid);
560 Modifies a basket's header.
564 =item C<$basketno> is the "basketno" field in the "aqbasket" table;
566 =item C<$basketname> is the "basketname" field in the "aqbasket" table;
568 =item C<$note> is the "note" field in the "aqbasket" table;
570 =item C<$booksellernote> is the "booksellernote" field in the "aqbasket" table;
572 =item C<$contractnumber> is the "contractnumber" (foreign) key in the "aqbasket" table.
574 =item C<$booksellerid> is the id (foreign) key in the "aqbooksellers" table for the vendor.
576 =item C<$deliveryplace> is the "deliveryplace" field in the aqbasket table.
578 =item C<$billingplace> is the "billingplace" field in the aqbasket table.
580 =item C<$is_standing> is the "is_standing" field in the aqbasket table.
582 =item C<$create_items> should be set to 'ordering', 'receiving' or 'cataloguing' (or undef, in which
583 case the AcqCreateItem syspref takes precedence).
589 sub ModBasketHeader {
590 my ($basketno, $basketname, $note, $booksellernote, $contractnumber, $booksellerid, $deliveryplace, $billingplace, $is_standing, $create_items) = @_;
595 SET basketname=?, note=?, booksellernote=?, booksellerid=?, deliveryplace=?, billingplace=?, is_standing=?, create_items=?
599 my $dbh = C4::Context->dbh;
600 my $sth = $dbh->prepare($query);
601 $sth->execute($basketname, $note, $booksellernote, $booksellerid, $deliveryplace, $billingplace, $is_standing, $create_items || undef, $basketno);
603 if ( $contractnumber ) {
604 my $query2 ="UPDATE aqbasket SET contractnumber=? WHERE basketno=?";
605 my $sth2 = $dbh->prepare($query2);
606 $sth2->execute($contractnumber,$basketno);
611 #------------------------------------------------------------#
613 =head3 GetBasketsByBookseller
615 @results = &GetBasketsByBookseller($booksellerid, $extra);
617 Returns a list of hashes of all the baskets that belong to bookseller 'booksellerid'.
621 =item C<$booksellerid> is the 'id' field of the bookseller in the aqbooksellers table
623 =item C<$extra> is the extra sql parameters, can be
625 $extra->{groupby}: group baskets by column
626 ex. $extra->{groupby} = aqbasket.basketgroupid
627 $extra->{orderby}: order baskets by column
628 $extra->{limit}: limit number of results (can be helpful for pagination)
634 sub GetBasketsByBookseller {
635 my ($booksellerid, $extra) = @_;
636 my $query = "SELECT * FROM aqbasket WHERE booksellerid=?";
638 if ($extra->{groupby}) {
639 $query .= " GROUP by $extra->{groupby}";
641 if ($extra->{orderby}){
642 $query .= " ORDER by $extra->{orderby}";
644 if ($extra->{limit}){
645 $query .= " LIMIT $extra->{limit}";
648 my $dbh = C4::Context->dbh;
649 my $sth = $dbh->prepare($query);
650 $sth->execute($booksellerid);
651 return $sth->fetchall_arrayref({});
654 =head3 GetBasketsInfosByBookseller
656 my $baskets = GetBasketsInfosByBookseller($supplierid, $allbaskets);
658 The optional second parameter allbaskets is a boolean allowing you to
659 select all baskets from the supplier; by default only active baskets (open or
660 closed but still something to receive) are returned.
662 Returns in a arrayref of hashref all about booksellers baskets, plus:
663 total_biblios: Number of distinct biblios in basket
664 total_items: Number of items in basket
665 expected_items: Number of non-received items in basket
669 sub GetBasketsInfosByBookseller {
670 my ($supplierid, $allbaskets) = @_;
672 return unless $supplierid;
674 my $dbh = C4::Context->dbh;
676 SELECT aqbasket.basketno, aqbasket.basketname, aqbasket.note, aqbasket.booksellernote, aqbasket.contractnumber, aqbasket.creationdate, aqbasket.closedate, aqbasket.booksellerid, aqbasket.authorisedby, aqbasket.booksellerinvoicenumber, aqbasket.basketgroupid, aqbasket.deliveryplace, aqbasket.billingplace, aqbasket.branch, aqbasket.is_standing, aqbasket.create_items,
677 SUM(aqorders.quantity) AS total_items,
679 IF ( aqorders.orderstatus = 'cancelled', aqorders.quantity, 0 )
680 ) AS total_items_cancelled,
681 COUNT(DISTINCT aqorders.biblionumber) AS total_biblios,
683 IF(aqorders.datereceived IS NULL
684 AND aqorders.datecancellationprinted IS NULL
688 SUM( aqorders.uncertainprice ) AS uncertainprices
690 LEFT JOIN aqorders ON aqorders.basketno = aqbasket.basketno
691 WHERE booksellerid = ?};
693 $query.=" GROUP BY aqbasket.basketno, aqbasket.basketname, aqbasket.note, aqbasket.booksellernote, aqbasket.contractnumber, aqbasket.creationdate, aqbasket.closedate, aqbasket.booksellerid, aqbasket.authorisedby, aqbasket.booksellerinvoicenumber, aqbasket.basketgroupid, aqbasket.deliveryplace, aqbasket.billingplace, aqbasket.branch, aqbasket.is_standing, aqbasket.create_items";
695 unless ( $allbaskets ) {
696 # Don't show the basket if it's NOT CLOSED or is FULLY RECEIVED
697 $query.=" HAVING (closedate IS NULL OR (
699 IF(aqorders.datereceived IS NULL
700 AND aqorders.datecancellationprinted IS NULL
706 my $sth = $dbh->prepare($query);
707 $sth->execute($supplierid);
708 my $baskets = $sth->fetchall_arrayref({});
710 # Retrieve the number of biblios cancelled
711 my $cancelled_biblios = $dbh->selectall_hashref( q|
712 SELECT COUNT(DISTINCT(biblionumber)) AS total_biblios_cancelled, aqbasket.basketno
714 LEFT JOIN aqorders ON aqorders.basketno = aqbasket.basketno
715 WHERE booksellerid = ?
716 AND aqorders.orderstatus = 'cancelled'
717 GROUP BY aqbasket.basketno
718 |, 'basketno', {}, $supplierid );
720 $_->{total_biblios_cancelled} = $cancelled_biblios->{$_->{basketno}}{total_biblios_cancelled} || 0
726 =head3 GetBasketUsers
728 $basketusers_ids = &GetBasketUsers($basketno);
730 Returns a list of all borrowernumbers that are in basket users list
735 my $basketno = shift;
737 return unless $basketno;
740 SELECT borrowernumber
744 my $dbh = C4::Context->dbh;
745 my $sth = $dbh->prepare($query);
746 $sth->execute($basketno);
747 my $results = $sth->fetchall_arrayref( {} );
750 foreach (@$results) {
751 push @borrowernumbers, $_->{'borrowernumber'};
754 return @borrowernumbers;
757 =head3 ModBasketUsers
759 my @basketusers_ids = (1, 2, 3);
760 &ModBasketUsers($basketno, @basketusers_ids);
762 Delete all users from basket users list, and add users in C<@basketusers_ids>
768 my ($basketno, @basketusers_ids) = @_;
770 return unless $basketno;
772 my $dbh = C4::Context->dbh;
774 DELETE FROM aqbasketusers
777 my $sth = $dbh->prepare($query);
778 $sth->execute($basketno);
781 INSERT INTO aqbasketusers (basketno, borrowernumber)
784 $sth = $dbh->prepare($query);
785 foreach my $basketuser_id (@basketusers_ids) {
786 $sth->execute($basketno, $basketuser_id);
791 =head3 CanUserManageBasket
793 my $bool = CanUserManageBasket($borrower, $basket[, $userflags]);
794 my $bool = CanUserManageBasket($borrowernumber, $basketno[, $userflags]);
796 Check if a borrower can manage a basket, according to system preference
797 AcqViewBaskets, user permissions and basket properties (creator, users list,
800 First parameter can be either a borrowernumber or a hashref as returned by
801 Koha::Patron->unblessed
803 Second parameter can be either a basketno or a hashref as returned by
804 C4::Acquisition::GetBasket.
806 The third parameter is optional. If given, it should be a hashref as returned
807 by C4::Auth::getuserflags. If not, getuserflags is called.
809 If user is authorised to manage basket, returns 1.
814 sub CanUserManageBasket {
815 my ($borrower, $basket, $userflags) = @_;
817 if (!ref $borrower) {
818 # FIXME This needs to be replaced
819 # We should not accept both scalar and array
820 # Tests need to be updated
821 $borrower = Koha::Patrons->find( $borrower )->unblessed;
824 $basket = GetBasket($basket);
827 return 0 unless ($basket and $borrower);
829 my $borrowernumber = $borrower->{borrowernumber};
830 my $basketno = $basket->{basketno};
832 my $AcqViewBaskets = C4::Context->preference('AcqViewBaskets');
834 if (!defined $userflags) {
835 my $dbh = C4::Context->dbh;
836 my $sth = $dbh->prepare("SELECT flags FROM borrowers WHERE borrowernumber = ?");
837 $sth->execute($borrowernumber);
838 my ($flags) = $sth->fetchrow_array;
841 $userflags = C4::Auth::getuserflags($flags, $borrower->{userid}, $dbh);
844 unless ($userflags->{superlibrarian}
845 || (ref $userflags->{acquisition} && $userflags->{acquisition}->{order_manage_all})
846 || (!ref $userflags->{acquisition} && $userflags->{acquisition}))
848 if (not exists $userflags->{acquisition}) {
852 if ( (ref $userflags->{acquisition} && !$userflags->{acquisition}->{order_manage})
853 || (!ref $userflags->{acquisition} && !$userflags->{acquisition}) ) {
857 if ($AcqViewBaskets eq 'user'
858 && $basket->{authorisedby} != $borrowernumber
859 && ! grep { $borrowernumber eq $_ } GetBasketUsers($basketno)) {
863 if ($AcqViewBaskets eq 'branch' && defined $basket->{branch}
864 && $basket->{branch} ne $borrower->{branchcode}) {
872 #------------------------------------------------------------#
874 =head3 GetBasketsByBasketgroup
876 $baskets = &GetBasketsByBasketgroup($basketgroupid);
878 Returns a reference to all baskets that belong to basketgroup $basketgroupid.
882 sub GetBasketsByBasketgroup {
883 my $basketgroupid = shift;
885 SELECT *, aqbasket.booksellerid as booksellerid
887 LEFT JOIN aqcontract USING(contractnumber) WHERE basketgroupid=?
889 my $dbh = C4::Context->dbh;
890 my $sth = $dbh->prepare($query);
891 $sth->execute($basketgroupid);
892 return $sth->fetchall_arrayref({});
895 #------------------------------------------------------------#
897 =head3 NewBasketgroup
899 $basketgroupid = NewBasketgroup(\%hashref);
901 Adds a basketgroup to the aqbasketgroups table, and add the initial baskets to it.
903 $hashref->{'booksellerid'} is the 'id' field of the bookseller in the aqbooksellers table,
905 $hashref->{'name'} is the 'name' field of the basketgroup in the aqbasketgroups table,
907 $hashref->{'basketlist'} is a list reference of the 'id's of the baskets that belong to this group,
909 $hashref->{'billingplace'} is the 'billingplace' field of the basketgroup in the aqbasketgroups table,
911 $hashref->{'deliveryplace'} is the 'deliveryplace' field of the basketgroup in the aqbasketgroups table,
913 $hashref->{'freedeliveryplace'} is the 'freedeliveryplace' field of the basketgroup in the aqbasketgroups table,
915 $hashref->{'deliverycomment'} is the 'deliverycomment' field of the basketgroup in the aqbasketgroups table,
917 $hashref->{'closed'} is the 'closed' field of the aqbasketgroups table, it is false if 0, true otherwise.
922 my $basketgroupinfo = shift;
923 die "booksellerid is required to create a basketgroup" unless $basketgroupinfo->{'booksellerid'};
924 my $query = "INSERT INTO aqbasketgroups (";
926 foreach my $field (qw(name billingplace deliveryplace freedeliveryplace deliverycomment closed)) {
927 if ( defined $basketgroupinfo->{$field} ) {
928 $query .= "$field, ";
929 push(@params, $basketgroupinfo->{$field});
932 $query .= "booksellerid) VALUES (";
937 push(@params, $basketgroupinfo->{'booksellerid'});
938 my $dbh = C4::Context->dbh;
939 my $sth = $dbh->prepare($query);
940 $sth->execute(@params);
941 my $basketgroupid = $dbh->{'mysql_insertid'};
942 if( $basketgroupinfo->{'basketlist'} ) {
943 foreach my $basketno (@{$basketgroupinfo->{'basketlist'}}) {
944 my $query2 = "UPDATE aqbasket SET basketgroupid=? WHERE basketno=?";
945 my $sth2 = $dbh->prepare($query2);
946 $sth2->execute($basketgroupid, $basketno);
949 return $basketgroupid;
952 #------------------------------------------------------------#
954 =head3 ModBasketgroup
956 ModBasketgroup(\%hashref);
958 Modifies a basketgroup in the aqbasketgroups table, and add the baskets to it.
960 $hashref->{'id'} is the 'id' field of the basketgroup in the aqbasketgroup table, this parameter is mandatory,
962 $hashref->{'name'} is the 'name' field of the basketgroup in the aqbasketgroups table,
964 $hashref->{'basketlist'} is a list reference of the 'id's of the baskets that belong to this group,
966 $hashref->{'billingplace'} is the 'billingplace' field of the basketgroup in the aqbasketgroups table,
968 $hashref->{'deliveryplace'} is the 'deliveryplace' field of the basketgroup in the aqbasketgroups table,
970 $hashref->{'freedeliveryplace'} is the 'freedeliveryplace' field of the basketgroup in the aqbasketgroups table,
972 $hashref->{'deliverycomment'} is the 'deliverycomment' field of the basketgroup in the aqbasketgroups table,
974 $hashref->{'closed'} is the 'closed' field of the aqbasketgroups table, it is false if 0, true otherwise.
979 my $basketgroupinfo = shift;
980 die "basketgroup id is required to edit a basketgroup" unless $basketgroupinfo->{'id'};
981 my $dbh = C4::Context->dbh;
982 my $query = "UPDATE aqbasketgroups SET ";
984 foreach my $field (qw(name billingplace deliveryplace freedeliveryplace deliverycomment closed)) {
985 if ( defined $basketgroupinfo->{$field} ) {
986 $query .= "$field=?, ";
987 push(@params, $basketgroupinfo->{$field});
992 $query .= " WHERE id=?";
993 push(@params, $basketgroupinfo->{'id'});
994 my $sth = $dbh->prepare($query);
995 $sth->execute(@params);
997 $sth = $dbh->prepare('UPDATE aqbasket SET basketgroupid = NULL WHERE basketgroupid = ?');
998 $sth->execute($basketgroupinfo->{'id'});
1000 if($basketgroupinfo->{'basketlist'} && @{$basketgroupinfo->{'basketlist'}}){
1001 $sth = $dbh->prepare("UPDATE aqbasket SET basketgroupid=? WHERE basketno=?");
1002 foreach my $basketno (@{$basketgroupinfo->{'basketlist'}}) {
1003 $sth->execute($basketgroupinfo->{'id'}, $basketno);
1009 #------------------------------------------------------------#
1011 =head3 DelBasketgroup
1013 DelBasketgroup($basketgroupid);
1015 Deletes a basketgroup in the aqbasketgroups table, and removes the reference to it from the baskets,
1019 =item C<$basketgroupid> is the 'id' field of the basket in the aqbasketgroup table
1025 sub DelBasketgroup {
1026 my $basketgroupid = shift;
1027 die "basketgroup id is required to edit a basketgroup" unless $basketgroupid;
1028 my $query = "DELETE FROM aqbasketgroups WHERE id=?";
1029 my $dbh = C4::Context->dbh;
1030 my $sth = $dbh->prepare($query);
1031 $sth->execute($basketgroupid);
1035 #------------------------------------------------------------#
1038 =head2 FUNCTIONS ABOUT ORDERS
1040 =head3 GetBasketgroup
1042 $basketgroup = &GetBasketgroup($basketgroupid);
1044 Returns a reference to the hash containing all information about the basketgroup.
1048 sub GetBasketgroup {
1049 my $basketgroupid = shift;
1050 die "basketgroup id is required to edit a basketgroup" unless $basketgroupid;
1051 my $dbh = C4::Context->dbh;
1052 my $result_set = $dbh->selectall_arrayref(
1053 'SELECT * FROM aqbasketgroups WHERE id=?',
1057 return $result_set->[0]; # id is unique
1060 #------------------------------------------------------------#
1062 =head3 GetBasketgroups
1064 $basketgroups = &GetBasketgroups($booksellerid);
1066 Returns a reference to the array of all the basketgroups of bookseller $booksellerid.
1070 sub GetBasketgroups {
1071 my $booksellerid = shift;
1072 die 'bookseller id is required to edit a basketgroup' unless $booksellerid;
1073 my $query = 'SELECT * FROM aqbasketgroups WHERE booksellerid=? ORDER BY id DESC';
1074 my $dbh = C4::Context->dbh;
1075 my $sth = $dbh->prepare($query);
1076 $sth->execute($booksellerid);
1077 return $sth->fetchall_arrayref({});
1080 #------------------------------------------------------------#
1082 =head2 FUNCTIONS ABOUT ORDERS
1086 @orders = &GetOrders( $basketno, { orderby => 'biblio.title', cancelled => 0|1 } );
1088 Looks up the pending (non-cancelled) orders with the given basket
1091 If cancelled is set, only cancelled orders will be returned.
1096 my ( $basketno, $params ) = @_;
1098 return () unless $basketno;
1100 my $orderby = $params->{orderby};
1101 my $cancelled = $params->{cancelled} || 0;
1103 my $dbh = C4::Context->dbh;
1105 SELECT biblio.*,biblioitems.*,
1109 $query .= $cancelled
1111 aqorders_transfers.ordernumber_to AS transferred_to,
1112 aqorders_transfers.timestamp AS transferred_to_timestamp
1115 aqorders_transfers.ordernumber_from AS transferred_from,
1116 aqorders_transfers.timestamp AS transferred_from_timestamp
1120 LEFT JOIN aqbudgets ON aqbudgets.budget_id = aqorders.budget_id
1121 LEFT JOIN biblio ON biblio.biblionumber = aqorders.biblionumber
1122 LEFT JOIN biblioitems ON biblioitems.biblionumber =biblio.biblionumber
1124 $query .= $cancelled
1126 LEFT JOIN aqorders_transfers ON aqorders_transfers.ordernumber_from = aqorders.ordernumber
1129 LEFT JOIN aqorders_transfers ON aqorders_transfers.ordernumber_to = aqorders.ordernumber
1137 $orderby ||= q|biblioitems.publishercode, biblio.title|;
1139 AND datecancellationprinted IS NOT NULL
1144 q|aqorders.datecancellationprinted desc, aqorders.timestamp desc|;
1146 AND datecancellationprinted IS NULL
1150 $query .= " ORDER BY $orderby";
1152 $dbh->selectall_arrayref( $query, { Slice => {} }, $basketno );
1157 #------------------------------------------------------------#
1159 =head3 GetOrdersByBiblionumber
1161 @orders = &GetOrdersByBiblionumber($biblionumber);
1163 Looks up the orders with linked to a specific $biblionumber, including
1164 cancelled orders and received orders.
1167 C<@orders> is an array of references-to-hash, whose keys are the
1168 fields from the aqorders, biblio, and biblioitems tables in the Koha database.
1172 sub GetOrdersByBiblionumber {
1173 my $biblionumber = shift;
1174 return unless $biblionumber;
1175 my $dbh = C4::Context->dbh;
1177 SELECT biblio.*,biblioitems.*,
1181 LEFT JOIN aqbudgets ON aqbudgets.budget_id = aqorders.budget_id
1182 LEFT JOIN biblio ON biblio.biblionumber = aqorders.biblionumber
1183 LEFT JOIN biblioitems ON biblioitems.biblionumber =biblio.biblionumber
1184 WHERE aqorders.biblionumber=?
1187 $dbh->selectall_arrayref( $query, { Slice => {} }, $biblionumber );
1188 return @{$result_set};
1192 #------------------------------------------------------------#
1196 $order = &GetOrder($ordernumber);
1198 Looks up an order by order number.
1200 Returns a reference-to-hash describing the order. The keys of
1201 C<$order> are fields from the biblio, biblioitems, aqorders tables of the Koha database.
1206 my ($ordernumber) = @_;
1207 return unless $ordernumber;
1209 my $dbh = C4::Context->dbh;
1210 my $query = qq{SELECT
1214 aqbasket.basketname,
1215 borrowers.branchcode,
1216 biblioitems.publicationyear,
1217 biblio.copyrightdate,
1218 biblioitems.editionstatement,
1222 biblioitems.publishercode,
1223 aqorders.rrp AS unitpricesupplier,
1224 aqorders.ecost AS unitpricelib,
1225 aqorders.claims_count AS claims_count,
1226 aqorders.claimed_date AS claimed_date,
1227 aqbudgets.budget_name AS budget,
1228 aqbooksellers.name AS supplier,
1229 aqbooksellers.id AS supplierid,
1230 biblioitems.publishercode AS publisher,
1231 ADDDATE(aqbasket.closedate, INTERVAL aqbooksellers.deliverytime DAY) AS estimateddeliverydate,
1232 DATE(aqbasket.closedate) AS orderdate,
1233 aqorders.quantity - COALESCE(aqorders.quantityreceived,0) AS quantity_to_receive,
1234 (aqorders.quantity - COALESCE(aqorders.quantityreceived,0)) * aqorders.rrp AS subtotal,
1235 DATEDIFF(CURDATE( ),closedate) AS latesince
1236 FROM aqorders LEFT JOIN biblio ON biblio.biblionumber = aqorders.biblionumber
1237 LEFT JOIN biblioitems ON biblioitems.biblionumber = biblio.biblionumber
1238 LEFT JOIN aqbudgets ON aqorders.budget_id = aqbudgets.budget_id,
1239 aqbasket LEFT JOIN borrowers ON aqbasket.authorisedby = borrowers.borrowernumber
1240 LEFT JOIN aqbooksellers ON aqbasket.booksellerid = aqbooksellers.id
1241 WHERE aqorders.basketno = aqbasket.basketno
1244 $dbh->selectall_arrayref( $query, { Slice => {} }, $ordernumber );
1246 # result_set assumed to contain 1 match
1247 return $result_set->[0];
1250 =head3 GetLastOrderNotReceivedFromSubscriptionid
1252 $order = &GetLastOrderNotReceivedFromSubscriptionid($subscriptionid);
1254 Returns a reference-to-hash describing the last order not received for a subscription.
1258 sub GetLastOrderNotReceivedFromSubscriptionid {
1259 my ( $subscriptionid ) = @_;
1260 my $dbh = C4::Context->dbh;
1262 SELECT * FROM aqorders
1263 LEFT JOIN subscription
1264 ON ( aqorders.subscriptionid = subscription.subscriptionid )
1265 WHERE aqorders.subscriptionid = ?
1266 AND aqorders.datereceived IS NULL
1270 $dbh->selectall_arrayref( $query, { Slice => {} }, $subscriptionid );
1272 # result_set assumed to contain 1 match
1273 return $result_set->[0];
1276 =head3 GetLastOrderReceivedFromSubscriptionid
1278 $order = &GetLastOrderReceivedFromSubscriptionid($subscriptionid);
1280 Returns a reference-to-hash describing the last order received for a subscription.
1284 sub GetLastOrderReceivedFromSubscriptionid {
1285 my ( $subscriptionid ) = @_;
1286 my $dbh = C4::Context->dbh;
1288 SELECT * FROM aqorders
1289 LEFT JOIN subscription
1290 ON ( aqorders.subscriptionid = subscription.subscriptionid )
1291 WHERE aqorders.subscriptionid = ?
1292 AND aqorders.datereceived =
1294 SELECT MAX( aqorders.datereceived )
1296 LEFT JOIN subscription
1297 ON ( aqorders.subscriptionid = subscription.subscriptionid )
1298 WHERE aqorders.subscriptionid = ?
1299 AND aqorders.datereceived IS NOT NULL
1301 ORDER BY ordernumber DESC
1305 $dbh->selectall_arrayref( $query, { Slice => {} }, $subscriptionid, $subscriptionid );
1307 # result_set assumed to contain 1 match
1308 return $result_set->[0];
1312 #------------------------------------------------------------#
1316 &ModOrder(\%hashref);
1318 Modifies an existing order. Updates the order with order number
1319 $hashref->{'ordernumber'} and biblionumber $hashref->{'biblionumber'}. All
1320 other keys of the hash update the fields with the same name in the aqorders
1321 table of the Koha database.
1326 my $orderinfo = shift;
1328 die "Ordernumber is required" if $orderinfo->{'ordernumber'} eq '';
1330 my $dbh = C4::Context->dbh;
1333 # update uncertainprice to an integer, just in case (under FF, checked boxes have the value "ON" by default)
1334 $orderinfo->{uncertainprice}=1 if $orderinfo->{uncertainprice};
1336 # delete($orderinfo->{'branchcode'});
1337 # the hash contains a lot of entries not in aqorders, so get the columns ...
1338 my $sth = $dbh->prepare("SELECT * FROM aqorders LIMIT 1;");
1340 my $colnames = $sth->{NAME};
1341 #FIXME Be careful. If aqorders would have columns with diacritics,
1342 #you should need to decode what you get back from NAME.
1343 #See report 10110 and guided_reports.pl
1344 my $query = "UPDATE aqorders SET ";
1346 foreach my $orderinfokey (grep(!/ordernumber/, keys %$orderinfo)){
1347 # ... and skip hash entries that are not in the aqorders table
1348 # FIXME : probably not the best way to do it (would be better to have a correct hash)
1349 next unless grep(/^$orderinfokey$/, @$colnames);
1350 $query .= "$orderinfokey=?, ";
1351 push(@params, $orderinfo->{$orderinfokey});
1354 $query .= "timestamp=NOW() WHERE ordernumber=?";
1355 push(@params, $orderinfo->{'ordernumber'} );
1356 $sth = $dbh->prepare($query);
1357 $sth->execute(@params);
1361 #------------------------------------------------------------#
1365 ModItemOrder($itemnumber, $ordernumber);
1367 Modifies the ordernumber of an item in aqorders_items.
1372 my ($itemnumber, $ordernumber) = @_;
1374 return unless ($itemnumber and $ordernumber);
1376 my $dbh = C4::Context->dbh;
1378 UPDATE aqorders_items
1380 WHERE itemnumber = ?
1382 my $sth = $dbh->prepare($query);
1383 return $sth->execute($ordernumber, $itemnumber);
1386 #------------------------------------------------------------#
1388 =head3 ModReceiveOrder
1390 my ( $date_received, $new_ordernumber ) = ModReceiveOrder(
1392 biblionumber => $biblionumber,
1394 quantityreceived => $quantityreceived,
1396 invoice => $invoice,
1397 budget_id => $budget_id,
1398 datereceived => $datereceived,
1399 received_itemnumbers => \@received_itemnumbers,
1403 Updates an order, to reflect the fact that it was received, at least
1406 If a partial order is received, splits the order into two.
1408 Updates the order with biblionumber C<$biblionumber> and ordernumber
1409 C<$order->{ordernumber}>.
1414 sub ModReceiveOrder {
1416 my $biblionumber = $params->{biblionumber};
1417 my $order = { %{ $params->{order} } }; # Copy the order, we don't want to modify it
1418 my $invoice = $params->{invoice};
1419 my $quantrec = $params->{quantityreceived};
1420 my $user = $params->{user};
1421 my $budget_id = $params->{budget_id};
1422 my $datereceived = $params->{datereceived};
1423 my $received_items = $params->{received_items};
1425 my $dbh = C4::Context->dbh;
1426 $datereceived = output_pref(
1428 dt => ( $datereceived ? dt_from_string( $datereceived ) : dt_from_string ),
1429 dateformat => 'iso',
1434 my $suggestionid = GetSuggestionFromBiblionumber( $biblionumber );
1435 if ($suggestionid) {
1436 ModSuggestion( {suggestionid=>$suggestionid,
1437 STATUS=>'AVAILABLE',
1438 biblionumber=> $biblionumber}
1442 my $result_set = $dbh->selectrow_arrayref(
1443 q{SELECT aqbasket.is_standing
1445 WHERE basketno=?},{ Slice => {} }, $order->{basketno});
1446 my $is_standing = $result_set->[0]; # we assume we have a unique basket
1448 my $new_ordernumber = $order->{ordernumber};
1449 if ( $is_standing || $order->{quantity} > $quantrec ) {
1450 # Split order line in two parts: the first is the original order line
1451 # without received items (the quantity is decreased),
1452 # the second part is a new order line with quantity=quantityrec
1453 # (entirely received)
1457 orderstatus = 'partial'|;
1458 $query .= q| WHERE ordernumber = ?|;
1459 my $sth = $dbh->prepare($query);
1462 ( $is_standing ? 1 : ($order->{quantity} - $quantrec) ),
1463 $order->{ordernumber}
1466 if ( not $order->{subscriptionid} && defined $order->{order_internalnote} ) {
1469 SET order_internalnote = ?
1470 WHERE ordernumber = ?|, {},
1471 $order->{order_internalnote}, $order->{ordernumber}
1475 # Recalculate tax_value
1479 tax_value_on_ordering = quantity * | . get_rounding_sql(q|ecost_tax_excluded|) . q| * tax_rate_on_ordering,
1480 tax_value_on_receiving = quantity * | . get_rounding_sql(q|unitprice_tax_excluded|) . q| * tax_rate_on_receiving
1481 WHERE ordernumber = ?
1482 |, undef, $order->{ordernumber});
1484 delete $order->{ordernumber};
1485 $order->{budget_id} = ( $budget_id || $order->{budget_id} );
1486 $order->{quantity} = $quantrec;
1487 $order->{quantityreceived} = $quantrec;
1488 $order->{ecost_tax_excluded} //= 0;
1489 $order->{tax_rate_on_ordering} //= 0;
1490 $order->{unitprice_tax_excluded} //= 0;
1491 $order->{tax_rate_on_receiving} //= 0;
1492 $order->{tax_value_on_ordering} = $order->{quantity} * get_rounded_price($order->{ecost_tax_excluded}) * $order->{tax_rate_on_ordering};
1493 $order->{tax_value_on_receiving} = $order->{quantity} * get_rounded_price($order->{unitprice_tax_excluded}) * $order->{tax_rate_on_receiving};
1494 $order->{datereceived} = $datereceived;
1495 $order->{invoiceid} = $invoice->{invoiceid};
1496 $order->{orderstatus} = 'complete';
1497 $new_ordernumber = Koha::Acquisition::Order->new($order)->store->ordernumber; # TODO What if the store fails?
1499 if ($received_items) {
1500 foreach my $itemnumber (@$received_items) {
1501 ModItemOrder($itemnumber, $new_ordernumber);
1507 SET quantityreceived = ?,
1511 orderstatus = 'complete'
1515 , replacementprice = ?
1516 | if defined $order->{replacementprice};
1519 , unitprice = ?, unitprice_tax_included = ?, unitprice_tax_excluded = ?
1520 | if defined $order->{unitprice};
1523 ,tax_value_on_receiving = ?
1524 | if defined $order->{tax_value_on_receiving};
1527 ,tax_rate_on_receiving = ?
1528 | if defined $order->{tax_rate_on_receiving};
1531 , order_internalnote = ?
1532 | if defined $order->{order_internalnote};
1534 $query .= q| where biblionumber=? and ordernumber=?|;
1536 my $sth = $dbh->prepare( $query );
1537 my @params = ( $quantrec, $datereceived, $invoice->{invoiceid}, ( $budget_id ? $budget_id : $order->{budget_id} ) );
1539 if ( defined $order->{replacementprice} ) {
1540 push @params, $order->{replacementprice};
1543 if ( defined $order->{unitprice} ) {
1544 push @params, $order->{unitprice}, $order->{unitprice_tax_included}, $order->{unitprice_tax_excluded};
1547 if ( defined $order->{tax_value_on_receiving} ) {
1548 push @params, $order->{tax_value_on_receiving};
1551 if ( defined $order->{tax_rate_on_receiving} ) {
1552 push @params, $order->{tax_rate_on_receiving};
1555 if ( defined $order->{order_internalnote} ) {
1556 push @params, $order->{order_internalnote};
1559 push @params, ( $biblionumber, $order->{ordernumber} );
1561 $sth->execute( @params );
1563 # All items have been received, sent a notification to users
1564 NotifyOrderUsers( $order->{ordernumber} );
1567 return ($datereceived, $new_ordernumber);
1570 =head3 CancelReceipt
1572 my $parent_ordernumber = CancelReceipt($ordernumber);
1574 Cancel an order line receipt and update the parent order line, as if no
1576 If items are created at receipt (AcqCreateItem = receiving) then delete
1582 my $ordernumber = shift;
1584 return unless $ordernumber;
1586 my $dbh = C4::Context->dbh;
1588 SELECT datereceived, parent_ordernumber, quantity
1590 WHERE ordernumber = ?
1592 my $sth = $dbh->prepare($query);
1593 $sth->execute($ordernumber);
1594 my $order = $sth->fetchrow_hashref;
1596 warn "CancelReceipt: order $ordernumber does not exist";
1599 unless($order->{'datereceived'}) {
1600 warn "CancelReceipt: order $ordernumber is not received";
1604 my $parent_ordernumber = $order->{'parent_ordernumber'};
1606 my $order_obj = Koha::Acquisition::Orders->find( $ordernumber ); # FIXME rewrite all this subroutine using this object
1607 my @itemnumbers = $order_obj->items->get_column('itemnumber');
1609 if($parent_ordernumber == $ordernumber || not $parent_ordernumber) {
1610 # The order line has no parent, just mark it as not received
1613 SET quantityreceived = ?,
1616 orderstatus = 'ordered'
1617 WHERE ordernumber = ?
1619 $sth = $dbh->prepare($query);
1620 $sth->execute(0, undef, undef, $ordernumber);
1621 _cancel_items_receipt( $order_obj );
1623 # The order line has a parent, increase parent quantity and delete
1625 unless ( $order_obj->basket->is_standing ) {
1627 SELECT quantity, datereceived
1629 WHERE ordernumber = ?
1631 $sth = $dbh->prepare($query);
1632 $sth->execute($parent_ordernumber);
1633 my $parent_order = $sth->fetchrow_hashref;
1634 unless($parent_order) {
1635 warn "Parent order $parent_ordernumber does not exist.";
1638 if($parent_order->{'datereceived'}) {
1639 warn "CancelReceipt: parent order is received.".
1640 " Can't cancel receipt.";
1646 orderstatus = 'ordered'
1647 WHERE ordernumber = ?
1649 $sth = $dbh->prepare($query);
1650 my $rv = $sth->execute(
1651 $order->{'quantity'} + $parent_order->{'quantity'},
1655 warn "Cannot update parent order line, so do not cancel".
1660 # Recalculate tax_value
1664 tax_value_on_ordering = quantity * | . get_rounding_sql(q|ecost_tax_excluded|) . q| * tax_rate_on_ordering,
1665 tax_value_on_receiving = quantity * | . get_rounding_sql(q|unitprice_tax_excluded|) . q| * tax_rate_on_receiving
1666 WHERE ordernumber = ?
1667 |, undef, $parent_ordernumber);
1670 _cancel_items_receipt( $order_obj, $parent_ordernumber );
1673 DELETE FROM aqorders
1674 WHERE ordernumber = ?
1676 $sth = $dbh->prepare($query);
1677 $sth->execute($ordernumber);
1681 if( $order_obj->basket->effective_create_items eq 'ordering' ) {
1682 my @affects = split q{\|}, C4::Context->preference("AcqItemSetSubfieldsWhenReceiptIsCancelled");
1684 for my $in ( @itemnumbers ) {
1685 my $item = Koha::Items->find( $in ); # FIXME We do not need that, we already have Koha::Items from $order_obj->items
1686 my $biblio = $item->biblio;
1687 my ( $itemfield ) = GetMarcFromKohaField( 'items.itemnumber' );
1688 my $item_marc = C4::Items::GetMarcItem( $biblio->biblionumber, $in );
1689 for my $affect ( @affects ) {
1690 my ( $sf, $v ) = split q{=}, $affect, 2;
1691 foreach ( $item_marc->field($itemfield) ) {
1692 $_->update( $sf => $v );
1695 C4::Items::ModItemFromMarc( $item_marc, $biblio->biblionumber, $in );
1700 return $parent_ordernumber;
1703 sub _cancel_items_receipt {
1704 my ( $order, $parent_ordernumber ) = @_;
1705 $parent_ordernumber ||= $order->ordernumber;
1707 my $items = $order->items;
1708 if ( $order->basket->effective_create_items eq 'receiving' ) {
1709 # Remove items that were created at receipt
1711 DELETE FROM items, aqorders_items
1712 USING items, aqorders_items
1713 WHERE items.itemnumber = ? AND aqorders_items.itemnumber = ?
1715 my $dbh = C4::Context->dbh;
1716 my $sth = $dbh->prepare($query);
1717 while ( my $item = $items->next ) {
1718 $sth->execute($item->itemnumber, $item->itemnumber);
1722 while ( my $item = $items->next ) {
1723 ModItemOrder($item->itemnumber, $parent_ordernumber);
1728 #------------------------------------------------------------#
1732 @results = &SearchOrders({
1733 ordernumber => $ordernumber,
1736 booksellerid => $booksellerid,
1737 basketno => $basketno,
1738 basketname => $basketname,
1739 basketgroupname => $basketgroupname,
1743 biblionumber => $biblionumber,
1744 budget_id => $budget_id
1747 Searches for orders filtered by criteria.
1749 C<$ordernumber> Finds matching orders or transferred orders by ordernumber.
1750 C<$search> Finds orders matching %$search% in title, author, or isbn.
1751 C<$owner> Finds order for the logged in user.
1752 C<$pending> Finds pending orders. Ignores completed and cancelled orders.
1753 C<$ordered> Finds orders to receive only (status 'ordered' or 'partial').
1756 C<@results> is an array of references-to-hash with the keys are fields
1757 from aqorders, biblio, biblioitems and aqbasket tables.
1762 my ( $params ) = @_;
1763 my $ordernumber = $params->{ordernumber};
1764 my $search = $params->{search};
1765 my $ean = $params->{ean};
1766 my $booksellerid = $params->{booksellerid};
1767 my $basketno = $params->{basketno};
1768 my $basketname = $params->{basketname};
1769 my $basketgroupname = $params->{basketgroupname};
1770 my $owner = $params->{owner};
1771 my $pending = $params->{pending};
1772 my $ordered = $params->{ordered};
1773 my $biblionumber = $params->{biblionumber};
1774 my $budget_id = $params->{budget_id};
1776 my $dbh = C4::Context->dbh;
1779 SELECT aqbasket.basketno,
1781 borrowers.firstname,
1784 biblioitems.biblioitemnumber,
1785 biblioitems.publishercode,
1786 biblioitems.publicationyear,
1787 aqbasket.authorisedby,
1788 aqbasket.booksellerid,
1790 aqbasket.creationdate,
1791 aqbasket.basketname,
1792 aqbasketgroups.id as basketgroupid,
1793 aqbasketgroups.name as basketgroupname,
1796 LEFT JOIN aqbasket ON aqorders.basketno = aqbasket.basketno
1797 LEFT JOIN aqbasketgroups ON aqbasket.basketgroupid = aqbasketgroups.id
1798 LEFT JOIN borrowers ON aqbasket.authorisedby=borrowers.borrowernumber
1799 LEFT JOIN biblio ON aqorders.biblionumber=biblio.biblionumber
1800 LEFT JOIN biblioitems ON biblioitems.biblionumber=biblio.biblionumber
1803 # If we search on ordernumber, we retrieve the transferred order if a transfer has been done.
1805 LEFT JOIN aqorders_transfers ON aqorders_transfers.ordernumber_to = aqorders.ordernumber
1809 WHERE (datecancellationprinted is NULL)
1812 if ( $pending or $ordered ) {
1815 ( aqbasket.is_standing AND aqorders.orderstatus IN ( "new", "ordered", "partial" ) )
1817 ( quantity > quantityreceived OR quantityreceived is NULL )
1821 $query .= q{ AND aqorders.orderstatus IN ( "ordered", "partial" )};
1829 my $userenv = C4::Context->userenv;
1830 if ( C4::Context->preference("IndependentBranches") ) {
1831 unless ( C4::Context->IsSuperLibrarian() ) {
1834 borrowers.branchcode = ?
1835 OR borrowers.branchcode = ''
1838 push @args, $userenv->{branch};
1842 if ( $ordernumber ) {
1843 $query .= ' AND ( aqorders.ordernumber = ? OR aqorders_transfers.ordernumber_from = ? ) ';
1844 push @args, ( $ordernumber, $ordernumber );
1846 if ( $biblionumber ) {
1847 $query .= 'AND aqorders.biblionumber = ?';
1848 push @args, $biblionumber;
1851 $query .= ' AND (biblio.title LIKE ? OR biblio.author LIKE ? OR biblioitems.isbn LIKE ?)';
1852 push @args, ("%$search%","%$search%","%$search%");
1855 $query .= ' AND biblioitems.ean = ?';
1858 if ( $booksellerid ) {
1859 $query .= 'AND aqbasket.booksellerid = ?';
1860 push @args, $booksellerid;
1863 $query .= 'AND aqbasket.basketno = ?';
1864 push @args, $basketno;
1867 $query .= 'AND aqbasket.basketname LIKE ?';
1868 push @args, "%$basketname%";
1870 if( $basketgroupname ) {
1871 $query .= ' AND aqbasketgroups.name LIKE ?';
1872 push @args, "%$basketgroupname%";
1876 $query .= ' AND aqbasket.authorisedby=? ';
1877 push @args, $userenv->{'number'};
1881 $query .= ' AND aqorders.budget_id = ?';
1882 push @args, $budget_id;
1885 $query .= ' ORDER BY aqbasket.basketno';
1887 my $sth = $dbh->prepare($query);
1888 $sth->execute(@args);
1889 return $sth->fetchall_arrayref({});
1892 #------------------------------------------------------------#
1896 &DelOrder($biblionumber, $ordernumber);
1898 Cancel the order with the given order and biblio numbers. It does not
1899 delete any entries in the aqorders table, it merely marks them as
1905 my ( $bibnum, $ordernumber, $delete_biblio, $reason ) = @_;
1907 my $dbh = C4::Context->dbh;
1910 SET datecancellationprinted=now(), orderstatus='cancelled'
1913 $query .= ", cancellationreason = ? ";
1916 WHERE biblionumber=? AND ordernumber=?
1918 my $sth = $dbh->prepare($query);
1920 $sth->execute($reason, $bibnum, $ordernumber);
1922 $sth->execute( $bibnum, $ordernumber );
1926 my $order = Koha::Acquisition::Orders->find($ordernumber);
1927 my $items = $order->items;
1928 while ( my $item = $items->next ) { # Should be moved to Koha::Acquisition::Order->delete
1929 my $delcheck = C4::Items::DelItemCheck( $bibnum, $item->itemnumber );
1931 if($delcheck != 1) {
1932 $error->{'delitem'} = 1;
1936 if($delete_biblio) {
1937 # We get the number of remaining items
1938 my $biblio = Koha::Biblios->find( $bibnum );
1939 my $itemcount = $biblio->items->count;
1941 # If there are no items left,
1942 if ( $itemcount == 0 ) {
1943 # We delete the record
1944 my $delcheck = DelBiblio($bibnum);
1947 $error->{'delbiblio'} = 1;
1955 =head3 TransferOrder
1957 my $newordernumber = TransferOrder($ordernumber, $basketno);
1959 Transfer an order line to a basket.
1960 Mark $ordernumber as cancelled with an internal note 'Cancelled and transferred
1961 to BOOKSELLER on DATE' and create new order with internal note
1962 'Transferred from BOOKSELLER on DATE'.
1963 Move all attached items to the new order.
1964 Received orders cannot be transferred.
1965 Return the ordernumber of created order.
1970 my ($ordernumber, $basketno) = @_;
1972 return unless ($ordernumber and $basketno);
1974 my $order = Koha::Acquisition::Orders->find( $ordernumber ) or return;
1975 return if $order->datereceived;
1977 $order = $order->unblessed;
1979 my $basket = GetBasket($basketno);
1980 return unless $basket;
1982 my $dbh = C4::Context->dbh;
1983 my ($query, $sth, $rv);
1987 SET datecancellationprinted = CAST(NOW() AS date), orderstatus = ?
1988 WHERE ordernumber = ?
1990 $sth = $dbh->prepare($query);
1991 $rv = $sth->execute('cancelled', $ordernumber);
1993 delete $order->{'ordernumber'};
1994 delete $order->{parent_ordernumber};
1995 $order->{'basketno'} = $basketno;
1997 my $newordernumber = Koha::Acquisition::Order->new($order)->store->ordernumber;
2000 UPDATE aqorders_items
2002 WHERE ordernumber = ?
2004 $sth = $dbh->prepare($query);
2005 $sth->execute($newordernumber, $ordernumber);
2008 INSERT INTO aqorders_transfers (ordernumber_from, ordernumber_to)
2011 $sth = $dbh->prepare($query);
2012 $sth->execute($ordernumber, $newordernumber);
2014 return $newordernumber;
2017 =head3 get_rounding_sql
2019 $rounding_sql = get_rounding_sql($column_name);
2021 returns the correct SQL routine based on OrderPriceRounding system preference.
2025 sub get_rounding_sql {
2026 my ( $round_string ) = @_;
2027 my $rounding_pref = C4::Context->preference('OrderPriceRounding') // q{};
2028 if ( $rounding_pref eq "nearest_cent" ) {
2029 return "CAST($round_string*100 AS SIGNED)/100";
2031 return $round_string;
2034 =head3 get_rounded_price
2036 $rounded_price = get_rounded_price( $price );
2038 returns a price rounded as specified in OrderPriceRounding system preference.
2042 sub get_rounded_price {
2044 my $rounding_pref = C4::Context->preference('OrderPriceRounding') // q{};
2045 if( $rounding_pref eq 'nearest_cent' ) {
2046 return Koha::Number::Price->new( $price )->round();
2052 =head2 FUNCTIONS ABOUT PARCELS
2056 $results = &GetParcels($bookseller, $order, $code, $datefrom, $dateto);
2058 get a lists of parcels.
2065 is the bookseller this function has to get parcels.
2068 To know on what criteria the results list has to be ordered.
2071 is the booksellerinvoicenumber.
2073 =item $datefrom & $dateto
2074 to know on what date this function has to filter its search.
2079 a pointer on a hash list containing parcel informations as such :
2085 =item Last operation
2087 =item Number of biblio
2089 =item Number of items
2096 my ($bookseller,$order, $code, $datefrom, $dateto) = @_;
2097 my $dbh = C4::Context->dbh;
2098 my @query_params = ();
2100 SELECT aqinvoices.invoicenumber,
2101 datereceived,purchaseordernumber,
2102 count(DISTINCT biblionumber) AS biblio,
2103 sum(quantity) AS itemsexpected,
2104 sum(quantityreceived) AS itemsreceived
2105 FROM aqorders LEFT JOIN aqbasket ON aqbasket.basketno = aqorders.basketno
2106 LEFT JOIN aqinvoices ON aqorders.invoiceid = aqinvoices.invoiceid
2107 WHERE aqbasket.booksellerid = ? and datereceived IS NOT NULL
2109 push @query_params, $bookseller;
2111 if ( defined $code ) {
2112 $strsth .= ' and aqinvoices.invoicenumber like ? ';
2113 # add a % to the end of the code to allow stemming.
2114 push @query_params, "$code%";
2117 if ( defined $datefrom ) {
2118 $strsth .= ' and datereceived >= ? ';
2119 push @query_params, $datefrom;
2122 if ( defined $dateto ) {
2123 $strsth .= 'and datereceived <= ? ';
2124 push @query_params, $dateto;
2127 $strsth .= "group by aqinvoices.invoicenumber,datereceived ";
2129 # can't use a placeholder to place this column name.
2130 # but, we could probably be checking to make sure it is a column that will be fetched.
2131 $strsth .= "order by $order " if ($order);
2133 my $sth = $dbh->prepare($strsth);
2135 $sth->execute( @query_params );
2136 my $results = $sth->fetchall_arrayref({});
2140 #------------------------------------------------------------#
2142 =head3 GetLateOrders
2144 @results = &GetLateOrders;
2146 Searches for bookseller with late orders.
2149 the table of supplier with late issues. This table is full of hashref.
2155 my $supplierid = shift;
2157 my $estimateddeliverydatefrom = shift;
2158 my $estimateddeliverydateto = shift;
2160 my $dbh = C4::Context->dbh;
2162 #BEWARE, order of parenthesis and LEFT JOIN is important for speed
2163 my $dbdriver = C4::Context->config("db_scheme") || "mysql";
2165 my @query_params = ();
2167 SELECT aqbasket.basketno,
2168 aqorders.ordernumber,
2169 DATE(aqbasket.closedate) AS orderdate,
2170 aqbasket.basketname AS basketname,
2171 aqbasket.basketgroupid AS basketgroupid,
2172 aqbasketgroups.name AS basketgroupname,
2173 aqorders.rrp AS unitpricesupplier,
2174 aqorders.ecost AS unitpricelib,
2175 aqorders.claims_count AS claims_count,
2176 aqorders.claimed_date AS claimed_date,
2177 aqbudgets.budget_name AS budget,
2178 borrowers.branchcode AS branch,
2179 aqbooksellers.name AS supplier,
2180 aqbooksellers.id AS supplierid,
2181 biblio.author, biblio.title,
2182 biblioitems.publishercode AS publisher,
2183 biblioitems.publicationyear,
2184 ADDDATE(aqbasket.closedate, INTERVAL aqbooksellers.deliverytime DAY) AS estimateddeliverydate,
2188 aqorders LEFT JOIN biblio ON biblio.biblionumber = aqorders.biblionumber
2189 LEFT JOIN biblioitems ON biblioitems.biblionumber = biblio.biblionumber
2190 LEFT JOIN aqbudgets ON aqorders.budget_id = aqbudgets.budget_id,
2191 aqbasket LEFT JOIN borrowers ON aqbasket.authorisedby = borrowers.borrowernumber
2192 LEFT JOIN aqbooksellers ON aqbasket.booksellerid = aqbooksellers.id
2193 LEFT JOIN aqbasketgroups ON aqbasket.basketgroupid = aqbasketgroups.id
2194 WHERE aqorders.basketno = aqbasket.basketno
2195 AND ( datereceived IS NULL
2196 OR aqorders.quantityreceived < aqorders.quantity
2198 AND aqbasket.closedate IS NOT NULL
2199 AND aqorders.datecancellationprinted IS NULL
2201 if ($dbdriver eq "mysql") {
2203 aqorders.quantity - COALESCE(aqorders.quantityreceived,0) AS quantity,
2204 (aqorders.quantity - COALESCE(aqorders.quantityreceived,0)) * aqorders.rrp AS subtotal,
2205 DATEDIFF(CAST(now() AS date),closedate) AS latesince
2207 if ( defined $delay ) {
2208 $from .= " AND (closedate <= DATE_SUB(CAST(now() AS date),INTERVAL ? DAY)) " ;
2209 push @query_params, $delay;
2211 $from .= " AND aqorders.quantity - COALESCE(aqorders.quantityreceived,0) <> 0";
2213 # FIXME: account for IFNULL as above
2215 aqorders.quantity AS quantity,
2216 aqorders.quantity * aqorders.rrp AS subtotal,
2217 (CAST(now() AS date) - closedate) AS latesince
2219 if ( defined $delay ) {
2220 $from .= " AND (closedate <= (CAST(now() AS date) -(INTERVAL ? DAY)) ";
2221 push @query_params, $delay;
2223 $from .= " AND aqorders.quantity <> 0";
2225 if (defined $supplierid) {
2226 $from .= ' AND aqbasket.booksellerid = ? ';
2227 push @query_params, $supplierid;
2229 if (defined $branch) {
2230 $from .= ' AND borrowers.branchcode LIKE ? ';
2231 push @query_params, $branch;
2234 if ( defined $estimateddeliverydatefrom or defined $estimateddeliverydateto ) {
2235 $from .= ' AND aqbooksellers.deliverytime IS NOT NULL ';
2237 if ( defined $estimateddeliverydatefrom ) {
2238 $from .= ' AND ADDDATE(aqbasket.closedate, INTERVAL aqbooksellers.deliverytime DAY) >= ?';
2239 push @query_params, $estimateddeliverydatefrom;
2241 if ( defined $estimateddeliverydateto ) {
2242 $from .= ' AND ADDDATE(aqbasket.closedate, INTERVAL aqbooksellers.deliverytime DAY) <= ?';
2243 push @query_params, $estimateddeliverydateto;
2245 if ( defined $estimateddeliverydatefrom and not defined $estimateddeliverydateto ) {
2246 $from .= ' AND ADDDATE(aqbasket.closedate, INTERVAL aqbooksellers.deliverytime DAY) <= CAST(now() AS date)';
2248 if (C4::Context->preference("IndependentBranches")
2249 && !C4::Context->IsSuperLibrarian() ) {
2250 $from .= ' AND borrowers.branchcode LIKE ? ';
2251 push @query_params, C4::Context->userenv->{branch};
2253 $from .= " AND orderstatus <> 'cancelled' ";
2254 my $query = "$select $from \nORDER BY latesince, basketno, borrowers.branchcode, supplier";
2255 $debug and print STDERR "GetLateOrders query: $query\nGetLateOrders args: " . join(" ",@query_params);
2256 my $sth = $dbh->prepare($query);
2257 $sth->execute(@query_params);
2259 while (my $data = $sth->fetchrow_hashref) {
2260 push @results, $data;
2265 #------------------------------------------------------------#
2269 \@order_loop = GetHistory( %params );
2271 Retreives some acquisition history information
2281 basket - search both basket name and number
2282 booksellerinvoicenumber
2285 orderstatus (note that orderstatus '' will retrieve orders
2286 of any status except cancelled)
2289 get_canceled_order (if set to a true value, cancelled orders will
2293 $order_loop is a list of hashrefs that each look like this:
2295 'author' => 'Twain, Mark',
2297 'biblionumber' => '215',
2299 'creationdate' => 'MM/DD/YYYY',
2300 'datereceived' => undef,
2303 'invoicenumber' => undef,
2305 'ordernumber' => '1',
2307 'quantityreceived' => undef,
2308 'title' => 'The Adventures of Huckleberry Finn',
2309 'managing_library' => 'CPL'
2315 # don't run the query if there are no parameters (list would be too long for sure !)
2316 croak "No search params" unless @_;
2318 my $title = $params{title};
2319 my $author = $params{author};
2320 my $isbn = $params{isbn};
2321 my $ean = $params{ean};
2322 my $name = $params{name};
2323 my $from_placed_on = $params{from_placed_on};
2324 my $to_placed_on = $params{to_placed_on};
2325 my $basket = $params{basket};
2326 my $booksellerinvoicenumber = $params{booksellerinvoicenumber};
2327 my $basketgroupname = $params{basketgroupname};
2328 my $budget = $params{budget};
2329 my $orderstatus = $params{orderstatus};
2330 my $biblionumber = $params{biblionumber};
2331 my $get_canceled_order = $params{get_canceled_order} || 0;
2332 my $ordernumber = $params{ordernumber};
2333 my $search_children_too = $params{search_children_too} || 0;
2334 my $created_by = $params{created_by} || [];
2335 my $managing_library = $params{managing_library};
2336 my $ordernumbers = $params{ordernumbers} || [];
2337 my $additional_fields = $params{additional_fields} // [];
2341 my $total_qtyreceived = 0;
2342 my $total_price = 0;
2344 #get variation of isbn
2348 if ( C4::Context->preference("SearchWithISBNVariations") ){
2349 @isbns = C4::Koha::GetVariationsOfISBN( $isbn );
2350 foreach my $isb (@isbns){
2351 push @isbn_params, '?';
2356 push @isbn_params, '?';
2360 my $dbh = C4::Context->dbh;
2363 COALESCE(biblio.title, deletedbiblio.title) AS title,
2364 COALESCE(biblio.author, deletedbiblio.author) AS author,
2365 COALESCE(biblioitems.isbn, deletedbiblioitems.isbn) AS isbn,
2366 COALESCE(biblioitems.ean, deletedbiblioitems.ean) AS ean,
2368 aqbasket.basketname,
2369 aqbasket.basketgroupid,
2370 aqbasket.authorisedby,
2371 concat( borrowers.firstname,' ',borrowers.surname) AS authorisedbyname,
2372 branch as managing_library,
2373 aqbasketgroups.name as groupname,
2375 aqbasket.creationdate,
2376 aqorders.datereceived,
2378 aqorders.quantityreceived,
2380 aqorders.ordernumber,
2382 aqinvoices.invoicenumber,
2383 aqbooksellers.id as id,
2384 aqorders.biblionumber,
2385 aqorders.orderstatus,
2386 aqorders.parent_ordernumber,
2387 aqbudgets.budget_name
2389 $query .= ", aqbudgets.budget_id AS budget" if defined $budget;
2392 LEFT JOIN aqbasket ON aqorders.basketno=aqbasket.basketno
2393 LEFT JOIN aqbasketgroups ON aqbasket.basketgroupid=aqbasketgroups.id
2394 LEFT JOIN aqbooksellers ON aqbasket.booksellerid=aqbooksellers.id
2395 LEFT JOIN biblioitems ON biblioitems.biblionumber=aqorders.biblionumber
2396 LEFT JOIN biblio ON biblio.biblionumber=aqorders.biblionumber
2397 LEFT JOIN aqbudgets ON aqorders.budget_id=aqbudgets.budget_id
2398 LEFT JOIN aqinvoices ON aqorders.invoiceid = aqinvoices.invoiceid
2399 LEFT JOIN deletedbiblio ON deletedbiblio.biblionumber=aqorders.biblionumber
2400 LEFT JOIN deletedbiblioitems ON deletedbiblioitems.biblionumber=aqorders.biblionumber
2401 LEFT JOIN borrowers ON aqbasket.authorisedby=borrowers.borrowernumber
2404 $query .= " WHERE 1 ";
2406 unless ($get_canceled_order or (defined $orderstatus and $orderstatus eq 'cancelled')) {
2407 $query .= " AND datecancellationprinted IS NULL ";
2410 my @query_params = ();
2412 if ( $biblionumber ) {
2413 $query .= " AND biblio.biblionumber = ?";
2414 push @query_params, $biblionumber;
2418 $query .= " AND biblio.title LIKE ? ";
2419 $title =~ s/\s+/%/g;
2420 push @query_params, "%$title%";
2424 $query .= " AND biblio.author LIKE ? ";
2425 push @query_params, "%$author%";
2429 $query .= " AND ( biblioitems.isbn LIKE " . join (" OR biblioitems.isbn LIKE ", @isbn_params ) . ")";
2430 foreach my $isb (@isbns){
2431 push @query_params, "%$isb%";
2436 $query .= " AND biblioitems.ean = ? ";
2437 push @query_params, "$ean";
2440 $query .= " AND aqbooksellers.name LIKE ? ";
2441 push @query_params, "%$name%";
2445 $query .= " AND aqbudgets.budget_id = ? ";
2446 push @query_params, "$budget";
2449 if ( $from_placed_on ) {
2450 $query .= " AND creationdate >= ? ";
2451 push @query_params, $from_placed_on;
2454 if ( $to_placed_on ) {
2455 $query .= " AND creationdate <= ? ";
2456 push @query_params, $to_placed_on;
2459 if ( defined $orderstatus and $orderstatus ne '') {
2460 $query .= " AND aqorders.orderstatus = ? ";
2461 push @query_params, "$orderstatus";
2465 if ($basket =~ m/^\d+$/) {
2466 $query .= " AND aqorders.basketno = ? ";
2467 push @query_params, $basket;
2469 $query .= " AND aqbasket.basketname LIKE ? ";
2470 push @query_params, "%$basket%";
2474 if ($booksellerinvoicenumber) {
2475 $query .= " AND aqinvoices.invoicenumber LIKE ? ";
2476 push @query_params, "%$booksellerinvoicenumber%";
2479 if ($basketgroupname) {
2480 $query .= " AND aqbasketgroups.name LIKE ? ";
2481 push @query_params, "%$basketgroupname%";
2485 $query .= " AND (aqorders.ordernumber = ? ";
2486 push @query_params, $ordernumber;
2487 if ($search_children_too) {
2488 $query .= " OR aqorders.parent_ordernumber = ? ";
2489 push @query_params, $ordernumber;
2494 if ( @$created_by ) {
2495 $query .= ' AND aqbasket.authorisedby IN ( ' . join( ',', ('?') x @$created_by ) . ')';
2496 push @query_params, @$created_by;
2499 if ( $managing_library ) {
2500 $query .= " AND aqbasket.branch = ? ";
2501 push @query_params, $managing_library;
2504 if ( @$ordernumbers ) {
2505 $query .= ' AND (aqorders.ordernumber IN ( ' . join (',', ('?') x @$ordernumbers ) . '))';
2506 push @query_params, @$ordernumbers;
2508 if ( @$additional_fields ) {
2509 my @baskets = Koha::Acquisition::Baskets->filter_by_additional_fields($additional_fields);
2511 return [] unless @baskets;
2513 # No parameterization because record IDs come directly from DB
2514 $query .= ' AND aqbasket.basketno IN ( ' . join( ',', map { $_->basketno } @baskets ) . ' )';
2517 if ( C4::Context->preference("IndependentBranches") ) {
2518 unless ( C4::Context->IsSuperLibrarian() ) {
2519 $query .= " AND (borrowers.branchcode = ? OR borrowers.branchcode ='' ) ";
2520 push @query_params, C4::Context->userenv->{branch};
2523 $query .= " ORDER BY id";
2525 return $dbh->selectall_arrayref( $query, { Slice => {} }, @query_params );
2528 =head2 GetRecentAcqui
2530 $results = GetRecentAcqui($days);
2532 C<$results> is a ref to a table which contains hashref
2536 sub GetRecentAcqui {
2538 my $dbh = C4::Context->dbh;
2542 ORDER BY timestamp DESC
2545 my $sth = $dbh->prepare($query);
2547 my $results = $sth->fetchall_arrayref({});
2551 #------------------------------------------------------------#
2555 &AddClaim($ordernumber);
2557 Add a claim for an order
2562 my ($ordernumber) = @_;
2563 my $dbh = C4::Context->dbh;
2566 claims_count = claims_count + 1,
2567 claimed_date = CURDATE()
2568 WHERE ordernumber = ?
2570 my $sth = $dbh->prepare($query);
2571 $sth->execute($ordernumber);
2576 my @invoices = GetInvoices(
2577 invoicenumber => $invoicenumber,
2578 supplierid => $supplierid,
2579 suppliername => $suppliername,
2580 shipmentdatefrom => $shipmentdatefrom, # ISO format
2581 shipmentdateto => $shipmentdateto, # ISO format
2582 billingdatefrom => $billingdatefrom, # ISO format
2583 billingdateto => $billingdateto, # ISO format
2584 isbneanissn => $isbn_or_ean_or_issn,
2587 publisher => $publisher,
2588 publicationyear => $publicationyear,
2589 branchcode => $branchcode,
2590 order_by => $order_by
2593 Return a list of invoices that match all given criteria.
2595 $order_by is "column_name (asc|desc)", where column_name is any of
2596 'invoicenumber', 'booksellerid', 'shipmentdate', 'billingdate', 'closedate',
2597 'shipmentcost', 'shipmentcost_budgetid'.
2599 asc is the default if omitted
2606 my @columns = qw(invoicenumber booksellerid shipmentdate billingdate
2607 closedate shipmentcost shipmentcost_budgetid);
2609 my $dbh = C4::Context->dbh;
2611 SELECT aqinvoices.invoiceid, aqinvoices.invoicenumber, aqinvoices.booksellerid, aqinvoices.shipmentdate, aqinvoices.billingdate, aqinvoices.closedate, aqinvoices.shipmentcost, aqinvoices.shipmentcost_budgetid, aqinvoices.message_id,
2612 aqbooksellers.name AS suppliername,
2615 aqorders.datereceived IS NOT NULL,
2616 aqorders.biblionumber,
2619 ) AS receivedbiblios,
2622 aqorders.subscriptionid IS NOT NULL,
2623 aqorders.subscriptionid,
2626 ) AS is_linked_to_subscriptions,
2627 SUM(aqorders.quantityreceived) AS receiveditems
2629 LEFT JOIN aqbooksellers ON aqbooksellers.id = aqinvoices.booksellerid
2630 LEFT JOIN aqorders ON aqorders.invoiceid = aqinvoices.invoiceid
2631 LEFT JOIN aqbasket ON aqbasket.basketno=aqorders.basketno
2632 LEFT JOIN borrowers ON aqbasket.authorisedby=borrowers.borrowernumber
2633 LEFT JOIN biblio ON aqorders.biblionumber = biblio.biblionumber
2634 LEFT JOIN biblioitems ON biblio.biblionumber = biblioitems.biblionumber
2635 LEFT JOIN subscription ON biblio.biblionumber = subscription.biblionumber
2640 if($args{supplierid}) {
2641 push @bind_strs, " aqinvoices.booksellerid = ? ";
2642 push @bind_args, $args{supplierid};
2644 if($args{invoicenumber}) {
2645 push @bind_strs, " aqinvoices.invoicenumber LIKE ? ";
2646 push @bind_args, "%$args{invoicenumber}%";
2648 if($args{suppliername}) {
2649 push @bind_strs, " aqbooksellers.name LIKE ? ";
2650 push @bind_args, "%$args{suppliername}%";
2652 if($args{shipmentdatefrom}) {
2653 push @bind_strs, " aqinvoices.shipmentdate >= ? ";
2654 push @bind_args, $args{shipmentdatefrom};
2656 if($args{shipmentdateto}) {
2657 push @bind_strs, " aqinvoices.shipmentdate <= ? ";
2658 push @bind_args, $args{shipmentdateto};
2660 if($args{billingdatefrom}) {
2661 push @bind_strs, " aqinvoices.billingdate >= ? ";
2662 push @bind_args, $args{billingdatefrom};
2664 if($args{billingdateto}) {
2665 push @bind_strs, " aqinvoices.billingdate <= ? ";
2666 push @bind_args, $args{billingdateto};
2668 if($args{isbneanissn}) {
2669 push @bind_strs, " (biblioitems.isbn LIKE CONCAT('%', ?, '%') OR biblioitems.ean LIKE CONCAT('%', ?, '%') OR biblioitems.issn LIKE CONCAT('%', ?, '%') ) ";
2670 push @bind_args, $args{isbneanissn}, $args{isbneanissn}, $args{isbneanissn};
2673 push @bind_strs, " biblio.title LIKE CONCAT('%', ?, '%') ";
2674 push @bind_args, $args{title};
2677 push @bind_strs, " biblio.author LIKE CONCAT('%', ?, '%') ";
2678 push @bind_args, $args{author};
2680 if($args{publisher}) {
2681 push @bind_strs, " biblioitems.publishercode LIKE CONCAT('%', ?, '%') ";
2682 push @bind_args, $args{publisher};
2684 if($args{publicationyear}) {
2685 push @bind_strs, " ((biblioitems.publicationyear LIKE CONCAT('%', ?, '%')) OR (biblio.copyrightdate LIKE CONCAT('%', ?, '%'))) ";
2686 push @bind_args, $args{publicationyear}, $args{publicationyear};
2688 if($args{branchcode}) {
2689 push @bind_strs, " borrowers.branchcode = ? ";
2690 push @bind_args, $args{branchcode};
2692 if($args{message_id}) {
2693 push @bind_strs, " aqinvoices.message_id = ? ";
2694 push @bind_args, $args{message_id};
2697 $query .= " WHERE " . join(" AND ", @bind_strs) if @bind_strs;
2698 $query .= " GROUP BY aqinvoices.invoiceid, aqinvoices.invoicenumber, aqinvoices.booksellerid, aqinvoices.shipmentdate, aqinvoices.billingdate, aqinvoices.closedate, aqinvoices.shipmentcost, aqinvoices.shipmentcost_budgetid, aqinvoices.message_id, aqbooksellers.name";
2700 if($args{order_by}) {
2701 my ($column, $direction) = split / /, $args{order_by};
2702 if(grep /^$column$/, @columns) {
2703 $direction ||= 'ASC';
2704 $query .= " ORDER BY $column $direction";
2708 my $sth = $dbh->prepare($query);
2709 $sth->execute(@bind_args);
2711 my $results = $sth->fetchall_arrayref({});
2717 my $invoice = GetInvoice($invoiceid);
2719 Get informations about invoice with given $invoiceid
2721 Return a hash filled with aqinvoices.* fields
2726 my ($invoiceid) = @_;
2729 return unless $invoiceid;
2731 my $dbh = C4::Context->dbh;
2737 my $sth = $dbh->prepare($query);
2738 $sth->execute($invoiceid);
2740 $invoice = $sth->fetchrow_hashref;
2744 =head3 GetInvoiceDetails
2746 my $invoice = GetInvoiceDetails($invoiceid)
2748 Return informations about an invoice + the list of related order lines
2750 Orders informations are in $invoice->{orders} (array ref)
2754 sub GetInvoiceDetails {
2755 my ($invoiceid) = @_;
2757 if ( !defined $invoiceid ) {
2758 carp 'GetInvoiceDetails called without an invoiceid';
2762 my $dbh = C4::Context->dbh;
2764 SELECT aqinvoices.*, aqbooksellers.name AS suppliername
2766 LEFT JOIN aqbooksellers ON aqinvoices.booksellerid = aqbooksellers.id
2769 my $sth = $dbh->prepare($query);
2770 $sth->execute($invoiceid);
2772 my $invoice = $sth->fetchrow_hashref;
2777 biblio.copyrightdate,
2779 biblioitems.publishercode,
2780 biblioitems.publicationyear,
2781 aqbasket.basketname,
2782 aqbasketgroups.id AS basketgroupid,
2783 aqbasketgroups.name AS basketgroupname
2785 LEFT JOIN aqbasket ON aqorders.basketno = aqbasket.basketno
2786 LEFT JOIN aqbasketgroups ON aqbasket.basketgroupid = aqbasketgroups.id
2787 LEFT JOIN biblio ON aqorders.biblionumber = biblio.biblionumber
2788 LEFT JOIN biblioitems ON aqorders.biblionumber = biblioitems.biblionumber
2791 $sth = $dbh->prepare($query);
2792 $sth->execute($invoiceid);
2793 $invoice->{orders} = $sth->fetchall_arrayref({});
2794 $invoice->{orders} ||= []; # force an empty arrayref if fetchall_arrayref fails
2801 my $invoiceid = AddInvoice(
2802 invoicenumber => $invoicenumber,
2803 booksellerid => $booksellerid,
2804 shipmentdate => $shipmentdate,
2805 billingdate => $billingdate,
2806 closedate => $closedate,
2807 shipmentcost => $shipmentcost,
2808 shipmentcost_budgetid => $shipmentcost_budgetid
2811 Create a new invoice and return its id or undef if it fails.
2818 return unless(%invoice and $invoice{invoicenumber});
2820 my @columns = qw(invoicenumber booksellerid shipmentdate billingdate
2821 closedate shipmentcost shipmentcost_budgetid message_id);
2825 foreach my $key (keys %invoice) {
2826 if(0 < grep(/^$key$/, @columns)) {
2827 push @set_strs, "$key = ?";
2828 push @set_args, ($invoice{$key} || undef);
2834 my $dbh = C4::Context->dbh;
2835 my $query = "INSERT INTO aqinvoices SET ";
2836 $query .= join (",", @set_strs);
2837 my $sth = $dbh->prepare($query);
2838 $rv = $sth->execute(@set_args);
2840 $rv = $dbh->last_insert_id(undef, undef, 'aqinvoices', undef);
2849 invoiceid => $invoiceid, # Mandatory
2850 invoicenumber => $invoicenumber,
2851 booksellerid => $booksellerid,
2852 shipmentdate => $shipmentdate,
2853 billingdate => $billingdate,
2854 closedate => $closedate,
2855 shipmentcost => $shipmentcost,
2856 shipmentcost_budgetid => $shipmentcost_budgetid
2859 Modify an invoice, invoiceid is mandatory.
2861 Return undef if it fails.
2868 return unless(%invoice and $invoice{invoiceid});
2870 my @columns = qw(invoicenumber booksellerid shipmentdate billingdate
2871 closedate shipmentcost shipmentcost_budgetid);
2875 foreach my $key (keys %invoice) {
2876 if(0 < grep(/^$key$/, @columns)) {
2877 push @set_strs, "$key = ?";
2878 push @set_args, ($invoice{$key} || undef);
2882 my $dbh = C4::Context->dbh;
2883 my $query = "UPDATE aqinvoices SET ";
2884 $query .= join(",", @set_strs);
2885 $query .= " WHERE invoiceid = ?";
2887 my $sth = $dbh->prepare($query);
2888 $sth->execute(@set_args, $invoice{invoiceid});
2893 CloseInvoice($invoiceid);
2897 Equivalent to ModInvoice(invoiceid => $invoiceid, closedate => undef);
2902 my ($invoiceid) = @_;
2904 return unless $invoiceid;
2906 my $dbh = C4::Context->dbh;
2909 SET closedate = CAST(NOW() AS DATE)
2912 my $sth = $dbh->prepare($query);
2913 $sth->execute($invoiceid);
2916 =head3 ReopenInvoice
2918 ReopenInvoice($invoiceid);
2922 Equivalent to ModInvoice(invoiceid => $invoiceid, closedate => output_pref({ dt=>dt_from_string, dateonly=>1, otputpref=>'iso' }))
2927 my ($invoiceid) = @_;
2929 return unless $invoiceid;
2931 my $dbh = C4::Context->dbh;
2934 SET closedate = NULL
2937 my $sth = $dbh->prepare($query);
2938 $sth->execute($invoiceid);
2943 DelInvoice($invoiceid);
2945 Delete an invoice if there are no items attached to it.
2950 my ($invoiceid) = @_;
2952 return unless $invoiceid;
2954 my $dbh = C4::Context->dbh;
2960 my $sth = $dbh->prepare($query);
2961 $sth->execute($invoiceid);
2962 my $res = $sth->fetchrow_arrayref;
2963 if ( $res && $res->[0] == 0 ) {
2965 DELETE FROM aqinvoices
2968 my $sth = $dbh->prepare($query);
2969 return ( $sth->execute($invoiceid) > 0 );
2974 =head3 MergeInvoices
2976 MergeInvoices($invoiceid, \@sourceids);
2978 Merge the invoices identified by the IDs in \@sourceids into
2979 the invoice identified by $invoiceid.
2984 my ($invoiceid, $sourceids) = @_;
2986 return unless $invoiceid;
2987 foreach my $sourceid (@$sourceids) {
2988 next if $sourceid == $invoiceid;
2989 my $source = GetInvoiceDetails($sourceid);
2990 foreach my $order (@{$source->{'orders'}}) {
2991 $order->{'invoiceid'} = $invoiceid;
2994 DelInvoice($source->{'invoiceid'});
2999 =head3 GetBiblioCountByBasketno
3001 $biblio_count = &GetBiblioCountByBasketno($basketno);
3003 Looks up the biblio's count that has basketno value $basketno
3009 sub GetBiblioCountByBasketno {
3010 my ($basketno) = @_;
3011 my $dbh = C4::Context->dbh;
3013 SELECT COUNT( DISTINCT( biblionumber ) )
3016 AND datecancellationprinted IS NULL
3019 my $sth = $dbh->prepare($query);
3020 $sth->execute($basketno);
3021 return $sth->fetchrow;
3024 =head3 populate_order_with_prices
3026 $order = populate_order_with_prices({
3027 order => $order #a hashref with the order values
3028 booksellerid => $booksellerid #FIXME - should obtain from order basket
3029 receiving => 1 # boolean representing order stage, should pass only this or ordering
3030 ordering => 1 # boolean representing order stage
3034 Sets calculated values for an order - all values are stored with full precision
3035 regardless of rounding preference except for tax value which is calculated
3036 on rounded values if requested
3038 For ordering the values set are:
3043 tax_value_on_ordering
3044 For receiving the value set are:
3045 unitprice_tax_included
3046 unitprice_tax_excluded
3047 tax_value_on_receiving
3049 Note: When receiving, if the rounded value of the unitprice matches the rounded
3050 value of the ecost then then ecost (full precision) is used.
3052 Returns a hashref of the order
3054 FIXME: Move this to Koha::Acquisition::Order.pm
3058 sub populate_order_with_prices {
3061 my $order = $params->{order};
3062 my $booksellerid = $params->{booksellerid};
3063 return unless $booksellerid;
3065 my $bookseller = Koha::Acquisition::Booksellers->find( $booksellerid );
3067 my $receiving = $params->{receiving};
3068 my $ordering = $params->{ordering};
3069 my $discount = $order->{discount};
3070 $discount /= 100 if $discount > 1;
3073 $order->{tax_rate_on_ordering} //= $order->{tax_rate};
3074 if ( $bookseller->listincgst ) {
3076 # The user entered the prices tax included
3077 $order->{unitprice_tax_included} = $order->{unitprice};
3078 $order->{rrp_tax_included} = $order->{rrp};
3080 # price tax excluded = price tax included / ( 1 + tax rate )
3081 $order->{unitprice_tax_excluded} = $order->{unitprice_tax_included} / ( 1 + $order->{tax_rate_on_ordering} );
3082 $order->{rrp_tax_excluded} = $order->{rrp_tax_included} / ( 1 + $order->{tax_rate_on_ordering} );
3084 # ecost tax included = rrp tax included ( 1 - discount )
3085 $order->{ecost_tax_included} = $order->{rrp_tax_included} * ( 1 - $discount );
3087 # ecost tax excluded = rrp tax excluded * ( 1 - discount )
3088 $order->{ecost_tax_excluded} = $order->{rrp_tax_excluded} * ( 1 - $discount );
3090 # tax value = quantity * ecost tax excluded * tax rate
3091 # we should use the unitprice if included
3092 my $cost_tax_included = $order->{unitprice_tax_included} || $order->{ecost_tax_included};
3093 my $cost_tax_excluded = $order->{unitprice_tax_excluded} || $order->{ecost_tax_excluded};
3094 $order->{tax_value_on_ordering} = ( get_rounded_price($cost_tax_included) - get_rounded_price($cost_tax_excluded) ) * $order->{quantity};
3098 # The user entered the prices tax excluded
3099 $order->{unitprice_tax_excluded} = $order->{unitprice};
3100 $order->{rrp_tax_excluded} = $order->{rrp};
3102 # price tax included = price tax excluded * ( 1 - tax rate )
3103 $order->{unitprice_tax_included} = $order->{unitprice_tax_excluded} * ( 1 + $order->{tax_rate_on_ordering} );
3104 $order->{rrp_tax_included} = $order->{rrp_tax_excluded} * ( 1 + $order->{tax_rate_on_ordering} );
3106 # ecost tax excluded = rrp tax excluded * ( 1 - discount )
3107 $order->{ecost_tax_excluded} = $order->{rrp_tax_excluded} * ( 1 - $discount );
3109 # ecost tax included = rrp tax excluded * ( 1 + tax rate ) * ( 1 - discount ) = ecost tax excluded * ( 1 + tax rate )
3110 $order->{ecost_tax_included} = $order->{ecost_tax_excluded} * ( 1 + $order->{tax_rate_on_ordering} );
3112 # tax value = quantity * ecost tax included * tax rate
3113 # we should use the unitprice if included
3114 my $cost_tax_excluded = $order->{unitprice_tax_excluded} || $order->{ecost_tax_excluded};
3115 $order->{tax_value_on_ordering} = $order->{quantity} * get_rounded_price($cost_tax_excluded) * $order->{tax_rate_on_ordering};
3120 $order->{tax_rate_on_receiving} //= $order->{tax_rate};
3121 if ( $bookseller->invoiceincgst ) {
3122 # Trick for unitprice. If the unit price rounded value is the same as the ecost rounded value
3123 # we need to keep the exact ecost value
3124 if ( Koha::Number::Price->new( $order->{unitprice} )->round == Koha::Number::Price->new( $order->{ecost_tax_included} )->round ) {
3125 $order->{unitprice} = $order->{ecost_tax_included};
3128 # The user entered the unit price tax included
3129 $order->{unitprice_tax_included} = $order->{unitprice};
3131 # unit price tax excluded = unit price tax included / ( 1 + tax rate )
3132 $order->{unitprice_tax_excluded} = $order->{unitprice_tax_included} / ( 1 + $order->{tax_rate_on_receiving} );
3135 # Trick for unitprice. If the unit price rounded value is the same as the ecost rounded value
3136 # we need to keep the exact ecost value
3137 if ( Koha::Number::Price->new( $order->{unitprice} )->round == Koha::Number::Price->new( $order->{ecost_tax_excluded} )->round ) {
3138 $order->{unitprice} = $order->{ecost_tax_excluded};
3141 # The user entered the unit price tax excluded
3142 $order->{unitprice_tax_excluded} = $order->{unitprice};
3145 # unit price tax included = unit price tax included * ( 1 + tax rate )
3146 $order->{unitprice_tax_included} = $order->{unitprice_tax_excluded} * ( 1 + $order->{tax_rate_on_receiving} );
3149 # tax value = quantity * unit price tax excluded * tax rate
3150 $order->{tax_value_on_receiving} = $order->{quantity} * get_rounded_price($order->{unitprice_tax_excluded}) * $order->{tax_rate_on_receiving};
3156 =head3 GetOrderUsers
3158 $order_users_ids = &GetOrderUsers($ordernumber);
3160 Returns a list of all borrowernumbers that are in order users list
3165 my ($ordernumber) = @_;
3167 return unless $ordernumber;
3170 SELECT borrowernumber
3172 WHERE ordernumber = ?
3174 my $dbh = C4::Context->dbh;
3175 my $sth = $dbh->prepare($query);
3176 $sth->execute($ordernumber);
3177 my $results = $sth->fetchall_arrayref( {} );
3179 my @borrowernumbers;
3180 foreach (@$results) {
3181 push @borrowernumbers, $_->{'borrowernumber'};
3184 return @borrowernumbers;
3187 =head3 ModOrderUsers
3189 my @order_users_ids = (1, 2, 3);
3190 &ModOrderUsers($ordernumber, @basketusers_ids);
3192 Delete all users from order users list, and add users in C<@order_users_ids>
3198 my ( $ordernumber, @order_users_ids ) = @_;
3200 return unless $ordernumber;
3202 my $dbh = C4::Context->dbh;
3204 DELETE FROM aqorder_users
3205 WHERE ordernumber = ?
3207 my $sth = $dbh->prepare($query);
3208 $sth->execute($ordernumber);
3211 INSERT INTO aqorder_users (ordernumber, borrowernumber)
3214 $sth = $dbh->prepare($query);
3215 foreach my $order_user_id (@order_users_ids) {
3216 $sth->execute( $ordernumber, $order_user_id );
3220 sub NotifyOrderUsers {
3221 my ($ordernumber) = @_;
3223 my @borrowernumbers = GetOrderUsers($ordernumber);
3224 return unless @borrowernumbers;
3226 my $order = GetOrder( $ordernumber );
3227 for my $borrowernumber (@borrowernumbers) {
3228 my $patron = Koha::Patrons->find( $borrowernumber );
3229 my $library = $patron->library->unblessed;
3230 my $biblio = Koha::Biblios->find( $order->{biblionumber} )->unblessed;
3231 my $letter = C4::Letters::GetPreparedLetter(
3232 module => 'acquisition',
3233 letter_code => 'ACQ_NOTIF_ON_RECEIV',
3234 branchcode => $library->{branchcode},
3235 lang => $patron->lang,
3237 'branches' => $library,
3238 'borrowers' => $patron->unblessed,
3239 'biblio' => $biblio,
3240 'aqorders' => $order,
3244 C4::Letters::EnqueueLetter(
3247 borrowernumber => $borrowernumber,
3248 LibraryName => C4::Context->preference("LibraryName"),
3249 message_transport_type => 'email',
3251 ) or warn "can't enqueue letter $letter";
3256 =head3 FillWithDefaultValues
3258 FillWithDefaultValues( $marc_record );
3260 This will update the record with default value defined in the ACQ framework.
3261 For all existing fields, if a default value exists and there are no subfield, it will be created.
3262 If the field does not exist, it will be created too.
3266 sub FillWithDefaultValues {
3268 my $tagslib = C4::Biblio::GetMarcStructure( 1, 'ACQ', { unsafe => 1 } );
3271 C4::Biblio::GetMarcFromKohaField( 'items.itemnumber' );
3272 for my $tag ( sort keys %$tagslib ) {
3274 next if $tag == $itemfield;
3275 for my $subfield ( sort keys %{ $tagslib->{$tag} } ) {
3276 next if IsMarcStructureInternal($tagslib->{$tag}{$subfield});
3277 my $defaultvalue = $tagslib->{$tag}{$subfield}{defaultvalue};
3278 if ( defined $defaultvalue and $defaultvalue ne '' ) {
3279 my @fields = $record->field($tag);
3281 for my $field (@fields) {
3282 if ( $field->is_control_field ) {
3283 $field->update($defaultvalue) if not defined $field->data;
3285 elsif ( not defined $field->subfield($subfield) ) {
3286 $field->add_subfields(
3287 $subfield => $defaultvalue );
3292 if ( $tag < 10 ) { # is_control_field
3293 $record->insert_fields_ordered(
3300 $record->insert_fields_ordered(
3302 $tag, '', '', $subfield => $defaultvalue
3318 Koha Development Team <http://koha-community.org/>