|
Lines 555-569
if ($StaffDetailItemSelection) {
Link Here
|
| 555 |
my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber); |
555 |
my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber); |
| 556 |
my @deletedorders_using_biblio; |
556 |
my @deletedorders_using_biblio; |
| 557 |
my @orders_using_biblio; |
557 |
my @orders_using_biblio; |
| 558 |
my @baskets_deletedorders; |
|
|
| 559 |
|
558 |
|
| 560 |
foreach my $myorder (@allorders_using_biblio) { |
559 |
foreach my $myorder (@allorders_using_biblio) { |
| 561 |
my $basket = $myorder->{'basketno'}; |
560 |
my $basket = $myorder->{'basketno'}; |
| 562 |
if ((defined $myorder->{'datecancellationprinted'}) and ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){ |
561 |
if ((defined $myorder->{'datecancellationprinted'}) and ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){ |
| 563 |
push @deletedorders_using_biblio, $myorder; |
562 |
push @deletedorders_using_biblio, $myorder; |
| 564 |
unless (grep{ $_ eq $basket } @baskets_deletedorders){ |
|
|
| 565 |
push @baskets_deletedorders,$myorder->{'basketno'}; |
| 566 |
} |
| 567 |
} |
563 |
} |
| 568 |
else { |
564 |
else { |
| 569 |
push @orders_using_biblio, $myorder; |
565 |
push @orders_using_biblio, $myorder; |
|
Lines 578-583
$template->param (countorders => $count_orders_using_biblio);
Link Here
|
| 578 |
my $count_deletedorders_using_biblio = scalar @deletedorders_using_biblio ; |
574 |
my $count_deletedorders_using_biblio = scalar @deletedorders_using_biblio ; |
| 579 |
$template->param (countdeletedorders => $count_deletedorders_using_biblio); |
575 |
$template->param (countdeletedorders => $count_deletedorders_using_biblio); |
| 580 |
|
576 |
|
| 581 |
$template->param (basketsdeletedorders => \@baskets_deletedorders); |
|
|
| 582 |
|
| 583 |
output_html_with_http_headers $query, $cookie, $template->output; |
577 |
output_html_with_http_headers $query, $cookie, $template->output; |