use C4::Items;
use C4::Serials; # CountSubscriptionFromBiblionumber
use C4::Search; # enabled_staff_search_views
-use C4::Acquisition qw(GetOrdersByBiblionumber);
use Koha::Biblios;
use Koha::Patrons;
template_name => "catalogue/ISBDdetail.tt",
query => $query,
type => "intranet",
- authnotrequired => 0,
flagsrequired => { catalogue => 1 },
}
);
biblio => $biblio,
);
-my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);
-my @deletedorders_using_biblio;
-my @orders_using_biblio;
-my @baskets_orders;
-my @baskets_deletedorders;
-
-foreach my $myorder (@allorders_using_biblio) {
- my $basket = $myorder->{'basketno'};
- if ((defined $myorder->{'datecancellationprinted'}) and ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){
- push @deletedorders_using_biblio, $myorder;
- unless (grep{ $_ eq $basket } @baskets_deletedorders){
- push @baskets_deletedorders,$myorder->{'basketno'};
- }
- }
- else {
- push @orders_using_biblio, $myorder;
- unless (grep{ $_ eq $basket } @baskets_orders){
- push @baskets_orders,$myorder->{'basketno'};
- }
- }
-}
-
-my $count_orders_using_biblio = scalar @orders_using_biblio ;
-$template->param (countorders => $count_orders_using_biblio);
-
-my $count_deletedorders_using_biblio = scalar @deletedorders_using_biblio ;
-$template->param (countdeletedorders => $count_deletedorders_using_biblio);
-
my $holds = $biblio->holds;
$template->param( holdcount => $holds->count );