Lines 560-574
if ($StaffDetailItemSelection) {
Link Here
|
560 |
my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber); |
560 |
my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber); |
561 |
my @deletedorders_using_biblio; |
561 |
my @deletedorders_using_biblio; |
562 |
my @orders_using_biblio; |
562 |
my @orders_using_biblio; |
563 |
my @baskets_deletedorders; |
|
|
564 |
|
563 |
|
565 |
foreach my $myorder (@allorders_using_biblio) { |
564 |
foreach my $myorder (@allorders_using_biblio) { |
566 |
my $basket = $myorder->{'basketno'}; |
565 |
my $basket = $myorder->{'basketno'}; |
567 |
if ((defined $myorder->{'datecancellationprinted'}) and ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){ |
566 |
if ((defined $myorder->{'datecancellationprinted'}) and ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){ |
568 |
push @deletedorders_using_biblio, $myorder; |
567 |
push @deletedorders_using_biblio, $myorder; |
569 |
unless (grep{ $_ eq $basket } @baskets_deletedorders){ |
|
|
570 |
push @baskets_deletedorders,$myorder->{'basketno'}; |
571 |
} |
572 |
} |
568 |
} |
573 |
else { |
569 |
else { |
574 |
push @orders_using_biblio, $myorder; |
570 |
push @orders_using_biblio, $myorder; |
Lines 583-588
$template->param (countorders => $count_orders_using_biblio);
Link Here
|
583 |
my $count_deletedorders_using_biblio = scalar @deletedorders_using_biblio ; |
579 |
my $count_deletedorders_using_biblio = scalar @deletedorders_using_biblio ; |
584 |
$template->param (countdeletedorders => $count_deletedorders_using_biblio); |
580 |
$template->param (countdeletedorders => $count_deletedorders_using_biblio); |
585 |
|
581 |
|
586 |
$template->param (basketsdeletedorders => \@baskets_deletedorders); |
|
|
587 |
|
588 |
output_html_with_http_headers $query, $cookie, $template->output; |
582 |
output_html_with_http_headers $query, $cookie, $template->output; |