@@ -, +, @@ --- C4/Biblio.pm | 21 --------------------- acqui/basket.pl | 5 +++-- acqui/parcel.pl | 2 +- 3 files changed, 4 insertions(+), 24 deletions(-) --- a/C4/Biblio.pm +++ a/C4/Biblio.pm @@ -54,7 +54,6 @@ BEGIN { TransformKohaToMarc PrepHostMarcField CountItemsIssued - CountBiblioInOrders ModBiblio ModZebra UpdateTotalIssues @@ -3180,26 +3179,6 @@ sub ModBiblioMarc { return $biblionumber; } -=head2 CountBiblioInOrders - - $count = &CountBiblioInOrders( $biblionumber); - -This function return count of biblios in orders with $biblionumber - -=cut - -sub CountBiblioInOrders { - my ($biblionumber) = @_; - my $dbh = C4::Context->dbh; - my $query = "SELECT count(*) - FROM aqorders - WHERE biblionumber=? AND datecancellationprinted IS NULL"; - my $sth = $dbh->prepare($query); - $sth->execute($biblionumber); - my $count = $sth->fetchrow; - return ($count); -} - =head2 prepare_host_field $marcfield = prepare_host_field( $hostbiblioitem, $marcflavour ); --- a/acqui/basket.pl +++ a/acqui/basket.pl @@ -136,7 +136,7 @@ if ( $op eq 'delete_confirm' ) { foreach my $myorder (@orders){ my $biblionumber = $myorder->{'biblionumber'}; my $biblio = Koha::Biblios->find( $biblionumber ); - my $countbiblio = CountBiblioInOrders($biblionumber); + my $countbiblio = $biblio->active_orders_count; my $ordernumber = $myorder->{'ordernumber'}; my $cnt_subscriptions = $biblio->subscriptions->count; my $itemcount = $biblio->items->count; @@ -477,7 +477,8 @@ sub get_order_infos { my $biblionumber = $order->{'biblionumber'}; if ( $biblionumber ) { # The biblio still exists my $biblio = Koha::Biblios->find( $biblionumber ); - my $countbiblio = CountBiblioInOrders($biblionumber); + my $countbiblio = $biblio->active_orders_count; + my $ordernumber = $order->{'ordernumber'}; my $cnt_subscriptions = $biblio->subscriptions->count; my $itemcount = $biblio->items->count; --- a/acqui/parcel.pl +++ a/acqui/parcel.pl @@ -241,7 +241,7 @@ unless( defined $invoice->{closedate} ) { my $biblionumber = $line{'biblionumber'}; my $biblio = Koha::Biblios->find( $biblionumber ); - my $countbiblio = CountBiblioInOrders($biblionumber); + my $countbiblio = $biblio->active_orders_count; my $ordernumber = $line{'ordernumber'}; my $order_object = Koha::Acquisition::Orders->find($ordernumber); my $cnt_subscriptions = $biblio ? $biblio->subscriptions->count: 0; --