-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(/^$basket$/, @baskets_deletedorders)){
- push @baskets_deletedorders,$myorder->{'basketno'};
- }
- }
- else {
- push @orders_using_biblio, $myorder;
- unless (grep(/^$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);
-