@@ -, +, @@ my @itemnumbers = GetItemnumbersFromOrder($order->{ordernumber}); my @itemnumbers = $order_object->items->get_column('itemnumbers'); - Create an order with several items - Receive some items --- C4/Acquisition.pm | 45 ++++++++---------------------- acqui/basket.pl | 10 ++++--- acqui/finishreceive.pl | 28 +++++++++++-------- acqui/orderreceive.pl | 7 +++-- acqui/parcel.pl | 13 +++++---- opac/opac-detail.pl | 7 ++--- t/db_dependent/Acquisition/CancelReceipt.t | 18 ++++++------ t/db_dependent/Acquisition/TransferOrder.t | 12 ++++---- 8 files changed, 64 insertions(+), 76 deletions(-) --- a/C4/Acquisition.pm +++ a/C4/Acquisition.pm @@ -83,8 +83,6 @@ BEGIN { &DelInvoice &MergeInvoices - &GetItemnumbersFromOrder - &AddClaim &GetBiblioCountByBasketno @@ -120,28 +118,6 @@ sub GetOrderFromItemnumber { } -# Returns the itemnumber(s) associated with the ordernumber given in parameter -sub GetItemnumbersFromOrder { - my ($ordernumber) = @_; - my $dbh = C4::Context->dbh; - my $query = "SELECT itemnumber FROM aqorders_items WHERE ordernumber=?"; - my $sth = $dbh->prepare($query); - $sth->execute($ordernumber); - my @tab; - - while (my $order = $sth->fetchrow_hashref) { - push @tab, $order->{'itemnumber'}; - } - - return @tab; - -} - - - - - - =head1 NAME C4::Acquisition - Koha functions for dealing with orders and acquisitions @@ -1591,8 +1567,8 @@ sub CancelReceipt { my $parent_ordernumber = $order->{'parent_ordernumber'}; - my @itemnumbers = GetItemnumbersFromOrder( $ordernumber ); my $order_obj = Koha::Acquisition::Orders->find( $ordernumber ); # FIXME rewrite all this subroutine using this object + my @itemnumbers = $order_obj->items->get_column('itemnumber'); if($parent_ordernumber == $ordernumber || not $parent_ordernumber) { # The order line has no parent, just mark it as not received @@ -1668,7 +1644,7 @@ sub CancelReceipt { my @affects = split q{\|}, C4::Context->preference("AcqItemSetSubfieldsWhenReceiptIsCancelled"); if ( @affects ) { for my $in ( @itemnumbers ) { - my $item = Koha::Items->find( $in ); + my $item = Koha::Items->find( $in ); # FIXME We do not need that, we already have Koha::Items from $order_obj->items my $biblio = $item->biblio; my ( $itemfield ) = GetMarcFromKohaField( 'items.itemnumber', $biblio->frameworkcode ); my $item_marc = C4::Items::GetMarcItem( $biblio->biblionumber, $in ); @@ -1690,7 +1666,7 @@ sub _cancel_items_receipt { my ( $order, $parent_ordernumber ) = @_; $parent_ordernumber ||= $order->ordernumber; - my @itemnumbers = GetItemnumbersFromOrder($order->ordernumber); # FIXME Must be $order->items + my $items = $order->items; if ( $order->basket->effective_create_items eq 'receiving' ) { # Remove items that were created at receipt my $query = qq{ @@ -1700,13 +1676,13 @@ sub _cancel_items_receipt { }; my $dbh = C4::Context->dbh; my $sth = $dbh->prepare($query); - foreach my $itemnumber (@itemnumbers) { - $sth->execute($itemnumber, $itemnumber); + while ( my $item = $items->next ) { + $sth->execute($item->itemnumber, $item->itemnumber); } } else { # Update items - foreach my $itemnumber (@itemnumbers) { - ModItemOrder($itemnumber, $parent_ordernumber); + while ( my $item = $items->next ) { + ModItemOrder($item->itemnumber, $parent_ordernumber); } } } @@ -1910,9 +1886,10 @@ sub DelOrder { } $sth->finish; - my @itemnumbers = GetItemnumbersFromOrder( $ordernumber ); - foreach my $itemnumber (@itemnumbers){ - my $delcheck = C4::Items::DelItemCheck( $bibnum, $itemnumber ); + my $order = Koha::Acquisition::Orders->find($ordernumber); + my $items = $order->items; + while ( my $item = $items->next ) { # Should be moved to Koha::Acquisition::Order->delete + my $delcheck = C4::Items::DelItemCheck( $bibnum, $item->itemnumber ); if($delcheck != 1) { $error->{'delitem'} = 1; --- a/acqui/basket.pl +++ a/acqui/basket.pl @@ -34,6 +34,7 @@ use C4::Items; use C4::Suggestions; use Koha::Biblios; use Koha::Acquisition::Booksellers; +use Koha::Acquisition::Orders; use Koha::Libraries; use C4::Letters qw/SendAlerts/; use Date::Calc qw/Add_Delta_Days/; @@ -474,12 +475,13 @@ sub get_order_infos { my $cnt_subscriptions = $biblio->subscriptions->count; my $itemcount = $biblio->items->count; my $holds_count = $biblio->holds->count; - my @items = GetItemnumbersFromOrder( $ordernumber ); - my $itemholds = $biblio->holds->search({ itemnumber => { -in => \@items } })->count; + my $order = Koha::Acquisition::Orders->find($ordernumber); # FIXME We should certainly do that at the beginning of this sub + my $items = $order->items; + my $itemholds = $biblio->holds->search({ itemnumber => { -in => [ $items->get_column('itemnumber') ] } })->count; # if the biblio is not in other orders and if there is no items elsewhere and no subscriptions and no holds we can then show the link "Delete order and Biblio" see bug 5680 - $line{can_del_bib} = 1 if $countbiblio <= 1 && $itemcount == scalar @items && !($cnt_subscriptions) && !($holds_count); - $line{items} = ($itemcount) - (scalar @items); + $line{can_del_bib} = 1 if $countbiblio <= 1 && $itemcount == $items->count && !($cnt_subscriptions) && !($holds_count); + $line{items} = $itemcount - $items->count; $line{left_item} = 1 if $line{items} >= 1; $line{left_biblio} = 1 if $countbiblio > 1; $line{biblios} = $countbiblio - 1; --- a/acqui/finishreceive.pl +++ a/acqui/finishreceive.pl @@ -150,17 +150,21 @@ if ($quantityrec > $origquantityrec ) { } } -ModItem( - { - booksellerid => $booksellerid, - dateaccessioned => $datereceived, - datelastseen => $datereceived, - price => $unitprice, - replacementprice => $order->{rrp}, - replacementpricedate => $datereceived, - }, - $biblionumber, - $_ -) foreach GetItemnumbersFromOrder($new_ordernumber); +my $new_order_object = Koha::Acquisition::Orders->find( $new_ordernumber ); # FIXME we should not need to refetch it +my $items = $new_order_object->items; +while ( my $item = $items->next ) { + ModItem( + { + booksellerid => $booksellerid, + dateaccessioned => $datereceived, + datelastseen => $datereceived, + price => $unitprice, + replacementprice => $order->{rrp}, + replacementpricedate => $datereceived, + }, + $biblionumber, + $item->itemnumber, + ); +} print $input->redirect("/cgi-bin/koha/acqui/parcel.pl?invoiceid=$invoiceid&sticky_filters=1"); --- a/acqui/orderreceive.pl +++ a/acqui/orderreceive.pl @@ -111,7 +111,8 @@ unless ( $results and @$results) { # prepare the form for receiving my $order = $results->[0]; -my $basket = Koha::Acquisition::Orders->find( $ordernumber )->basket; +my $order_object = Koha::Acquisition::Orders->find( $ordernumber ); +my $basket = $order_object->basket; # Check if ACQ framework exists my $acq_fw = GetMarcStructure( 1, 'ACQ', { unsafe => 1 } ); @@ -127,10 +128,10 @@ if ($AcqCreateItem eq 'receiving') { ); } elsif ($AcqCreateItem eq 'ordering') { my $fw = ($acq_fw) ? 'ACQ' : ''; - my @itemnumbers = GetItemnumbersFromOrder($order->{ordernumber}); + my @itemnumbers = $order_object->items->get_column('itemnumbers'); my @items; foreach (@itemnumbers) { - my $item = GetItem($_); + my $item = GetItem($_); # FIXME We do not need this call, we already have the Koha::Items my $descriptions; $descriptions = Koha::AuthorisedValues->get_description_by_koha_field({frameworkcode => $fw, kohafield => 'items.notforloan', authorised_value => $item->{notforloan} }); $item->{notforloan} = $descriptions->{lib} // ''; --- a/acqui/parcel.pl +++ a/acqui/parcel.pl @@ -67,6 +67,7 @@ use C4::Suggestions; use Koha::Acquisition::Baskets; use Koha::Acquisition::Bookseller; +use Koha::Acquisition::Orders; use Koha::Biblios; use Koha::DateUtils; use Koha::Biblios; @@ -125,6 +126,7 @@ my $subtotal_for_funds; for my $order ( @orders ) { $order->{'unitprice'} += 0; + my $order_object = Koha::Acquisition::Orders->find($order->{ordernumber}); if ( $bookseller->invoiceincgst ) { $order->{ecost} = $order->{ecost_tax_included}; $order->{unitprice} = $order->{unitprice_tax_included}; @@ -138,7 +140,7 @@ for my $order ( @orders ) { my %line = %{ $order }; $line{invoice} = $invoice->{invoicenumber}; - my @itemnumbers = GetItemnumbersFromOrder( $order->{ordernumber} ); + my @itemnumbers = $order_object->items->get_column('itemnumbers'); my $biblio = Koha::Biblios->find( $line{biblionumber} ); $line{total_holds} = $biblio ? $biblio->holds->count : 0; $line{item_holds} = $biblio ? $biblio->current_holds->search( @@ -241,11 +243,12 @@ unless( defined $invoice->{closedate} ) { my $biblio = Koha::Biblios->find( $biblionumber ); my $countbiblio = CountBiblioInOrders($biblionumber); my $ordernumber = $line{'ordernumber'}; + my $order_object = Koha::Acquisition::Orders->find($ordernumber); my $cnt_subscriptions = $biblio ? $biblio->subscriptions->count: 0; my $itemcount = $biblio ? $biblio->items->count : 0; my $holds_count = $biblio ? $biblio->holds->count : 0; - my @items = GetItemnumbersFromOrder( $ordernumber ); - my $itemholds = $biblio ? $biblio->holds->search({ itemnumber => { -in => \@items } })->count : 0; + my @itemnumbers = $order_object->items->get_column('itemnumbers'); + my $itemholds = $biblio ? $biblio->holds->search({ itemnumber => { -in => \@itemnumbers } })->count : 0; my $suggestion = GetSuggestionInfoFromBiblionumber($line{biblionumber}); $line{suggestionid} = $suggestion->{suggestionid}; @@ -253,8 +256,8 @@ unless( defined $invoice->{closedate} ) { $line{firstnamesuggestedby} = $suggestion->{firstnamesuggestedby}; # if the biblio is not in other orders and if there is no items elsewhere and no subscriptions and no holds we can then show the link "Delete order and Biblio" see bug 5680 - $line{can_del_bib} = 1 if $countbiblio <= 1 && $itemcount == scalar @items && !($cnt_subscriptions) && !($holds_count); - $line{items} = ($itemcount) - (scalar @items); + $line{can_del_bib} = 1 if $countbiblio <= 1 && $itemcount == scalar @itemnumbers && !($cnt_subscriptions) && !($holds_count); + $line{items} = ($itemcount) - (scalar @itemnumbers); $line{left_item} = 1 if $line{items} >= 1; $line{left_biblio} = 1 if $countbiblio > 1; $line{biblios} = $countbiblio - 1; --- a/opac/opac-detail.pl +++ a/opac/opac-detail.pl @@ -641,11 +641,10 @@ if ( C4::Context->preference('OPACAcquisitionDetails' ) ) { }); my $total_quantity = 0; for my $order ( @$orders ) { - my $basket = Koha::Acquisition::Orders->find( $order->{ordernumber} )->basket; + my $order = Koha::Acquisition::Orders->find( $order->{ordernumber} ); + my $basket = $order->basket; if ( $basket->effective_create_items eq 'ordering' ) { - for my $itemnumber ( C4::Acquisition::GetItemnumbersFromOrder( $order->{ordernumber} ) ) { - push @itemnumbers_on_order, $itemnumber; - } + @itemnumbers_on_order = $order->items->get_column('itemnumber'); } $total_quantity += $order->{quantity}; } --- a/t/db_dependent/Acquisition/CancelReceipt.t +++ a/t/db_dependent/Acquisition/CancelReceipt.t @@ -89,7 +89,7 @@ $order->add_item( $itemnumber ); CancelReceipt($ordernumber); -is(scalar GetItemnumbersFromOrder($ordernumber), 0, "Create items on receiving: 0 item exist after cancelling a receipt"); +is($order->items->count, 0, "Create items on receiving: 0 item exist after cancelling a receipt"); my $itemnumber1 = AddItem( { itype => $itemtype }, $biblionumber ); my $itemnumber2 = AddItem( { itype => $itemtype }, $biblionumber ); @@ -114,7 +114,7 @@ $order->add_item( $itemnumber1 ); $order->add_item( $itemnumber2 ); is( - scalar( GetItemnumbersFromOrder( $order->ordernumber ) ), + $order->items->count, 2, "Create items on ordering: 2 items should be linked to the order before receiving" ); @@ -128,23 +128,23 @@ my ( undef, $new_ordernumber ) = ModReceiveOrder( } ); -my $new_order = GetOrder( $new_ordernumber ); +my $new_order = Koha::Acquisition::Orders->find( $new_ordernumber ); -is( $new_order->{ordernumber}, $new_ordernumber, +is( $new_order->ordernumber, $new_ordernumber, "ModReceiveOrder should return a correct ordernumber" ); isnt( $new_ordernumber, $ordernumber, "ModReceiveOrder should return a different ordernumber" ); -is( $new_order->{parent_ordernumber}, $ordernumber, +is( $new_order->parent_ordernumber, $ordernumber, "The new order created by ModReceiveOrder should be linked to the parent order" ); is( - scalar( GetItemnumbersFromOrder( $order->ordernumber ) ), + $order->items->count, 1, "Create items on ordering: 1 item should still be linked to the original order after receiving" ); is( - scalar( GetItemnumbersFromOrder($new_ordernumber) ), + $new_order->items->count, 1, "Create items on ordering: 1 item should be linked to new order after receiving" ); @@ -152,12 +152,12 @@ is( CancelReceipt($new_ordernumber); is( - scalar( GetItemnumbersFromOrder($new_ordernumber) ), + $new_order->items->count, 0, "Create items on ordering: no item should be linked to the cancelled order" ); is( - scalar( GetItemnumbersFromOrder( $order->ordernumber ) ), + $order->items->count, 2, "Create items on ordering: items are not deleted after cancelling a receipt" ); --- a/t/db_dependent/Acquisition/TransferOrder.t +++ a/t/db_dependent/Acquisition/TransferOrder.t @@ -72,7 +72,8 @@ $order->add_item( $itemnumber ); # Begin tests is(scalar GetOrders($basketno1), 1, "1 order in basket1"); ($order) = GetOrders($basketno1); -is(scalar GetItemnumbersFromOrder($order->{ordernumber}), 1, "1 item in basket1's order"); +$order = Koha::Acquisition::Orders->find($order->{ordernumber}); +is($order->items->count, 1, "1 item in basket1's order"); is(scalar GetOrders($basketno2), 0, "0 order in basket2"); # Transfering order to basket2 @@ -81,12 +82,13 @@ is(scalar GetOrders($basketno1), 0, "0 order in basket1"); is(scalar GetOrders($basketno2), 1, "1 order in basket2"); # Determine if the transfer marked things cancelled properly. -is($order->{orderstatus},'new','Before the transfer, the order status should be new'); -($order) = GetOrders($basketno1, { 'cancelled' => 1 }); -is($order->{orderstatus},'cancelled','After the transfer, the order status should be set to cancelled'); +is($order->orderstatus,'new','Before the transfer, the order status should be new'); +$order = Koha::Acquisition::Orders->find($order->ordernumber); +is($order->orderstatus,'cancelled','After the transfer, the order status should be set to cancelled'); ($order) = GetOrders($basketno2); -is(scalar GetItemnumbersFromOrder($order->{ordernumber}), 1, "1 item in basket2's order"); +$order = Koha::Acquisition::Orders->find($order->{ordernumber}); +is($order->items->count, 1, "1 item in basket2's order"); # Bug 11552 my $orders = SearchOrders({ ordernumber => $newordernumber }); --