|
Lines 515-521
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_orders; |
|
|
| 519 |
my @baskets_deletedorders; |
518 |
my @baskets_deletedorders; |
| 520 |
|
519 |
|
| 521 |
foreach my $myorder (@allorders_using_biblio) { |
520 |
foreach my $myorder (@allorders_using_biblio) { |
|
Lines 528-536
foreach my $myorder (@allorders_using_biblio) {
Link Here
|
| 528 |
} |
527 |
} |
| 529 |
else { |
528 |
else { |
| 530 |
push @orders_using_biblio, $myorder; |
529 |
push @orders_using_biblio, $myorder; |
| 531 |
unless (grep{ $_ eq $basket } @baskets_orders){ |
|
|
| 532 |
push @baskets_orders,$myorder->{'basketno'}; |
| 533 |
} |
| 534 |
} |
530 |
} |
| 535 |
} |
531 |
} |
| 536 |
|
532 |
|
|
Lines 540-546
$template->param (countorders => $count_orders_using_biblio);
Link Here
|
| 540 |
my $count_deletedorders_using_biblio = scalar @deletedorders_using_biblio ; |
536 |
my $count_deletedorders_using_biblio = scalar @deletedorders_using_biblio ; |
| 541 |
$template->param (countdeletedorders => $count_deletedorders_using_biblio); |
537 |
$template->param (countdeletedorders => $count_deletedorders_using_biblio); |
| 542 |
|
538 |
|
| 543 |
$template->param (basketsorders => \@baskets_orders); |
|
|
| 544 |
$template->param (basketsdeletedorders => \@baskets_deletedorders); |
539 |
$template->param (basketsdeletedorders => \@baskets_deletedorders); |
| 545 |
|
540 |
|
| 546 |
output_html_with_http_headers $query, $cookie, $template->output; |
541 |
output_html_with_http_headers $query, $cookie, $template->output; |