Lines 515-529
if ($StaffDetailItemSelection) {
Link Here
|
515 |
my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber); |
515 |
my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber); |
516 |
my @deletedorders_using_biblio; |
516 |
my @deletedorders_using_biblio; |
517 |
my @orders_using_biblio; |
517 |
my @orders_using_biblio; |
518 |
my @baskets_deletedorders; |
|
|
519 |
|
518 |
|
520 |
foreach my $myorder (@allorders_using_biblio) { |
519 |
foreach my $myorder (@allorders_using_biblio) { |
521 |
my $basket = $myorder->{'basketno'}; |
520 |
my $basket = $myorder->{'basketno'}; |
522 |
if ((defined $myorder->{'datecancellationprinted'}) and ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){ |
521 |
if ((defined $myorder->{'datecancellationprinted'}) and ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){ |
523 |
push @deletedorders_using_biblio, $myorder; |
522 |
push @deletedorders_using_biblio, $myorder; |
524 |
unless (grep{ $_ eq $basket } @baskets_deletedorders){ |
|
|
525 |
push @baskets_deletedorders,$myorder->{'basketno'}; |
526 |
} |
527 |
} |
523 |
} |
528 |
else { |
524 |
else { |
529 |
push @orders_using_biblio, $myorder; |
525 |
push @orders_using_biblio, $myorder; |
Lines 536-541
$template->param (countorders => $count_orders_using_biblio);
Link Here
|
536 |
my $count_deletedorders_using_biblio = scalar @deletedorders_using_biblio ; |
532 |
my $count_deletedorders_using_biblio = scalar @deletedorders_using_biblio ; |
537 |
$template->param (countdeletedorders => $count_deletedorders_using_biblio); |
533 |
$template->param (countdeletedorders => $count_deletedorders_using_biblio); |
538 |
|
534 |
|
539 |
$template->param (basketsdeletedorders => \@baskets_deletedorders); |
|
|
540 |
|
541 |
output_html_with_http_headers $query, $cookie, $template->output; |
535 |
output_html_with_http_headers $query, $cookie, $template->output; |