|
Lines 512-535
if ($StaffDetailItemSelection) {
Link Here
|
| 512 |
} |
512 |
} |
| 513 |
} |
513 |
} |
| 514 |
|
514 |
|
| 515 |
my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber); |
515 |
my $orders = |
| 516 |
my @deletedorders_using_biblio; |
516 |
Koha::Acquisition::Orders->search( { biblionumber => $biblionumber } ); |
| 517 |
my @orders_using_biblio; |
|
|
| 518 |
|
| 519 |
foreach my $myorder (@allorders_using_biblio) { |
| 520 |
my $basket = $myorder->{'basketno'}; |
| 521 |
if ((defined $myorder->{'datecancellationprinted'}) and ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){ |
| 522 |
push @deletedorders_using_biblio, $myorder; |
| 523 |
} |
| 524 |
else { |
| 525 |
push @orders_using_biblio, $myorder; |
| 526 |
} |
| 527 |
} |
| 528 |
|
517 |
|
| 529 |
my $count_orders_using_biblio = scalar @orders_using_biblio ; |
518 |
$template->param( |
| 530 |
$template->param (countorders => $count_orders_using_biblio); |
519 |
countorders => $orders->search( { |
| 531 |
|
520 |
datecancellationprinted => [ undef, '0000-00-00' ] |
| 532 |
my $count_deletedorders_using_biblio = scalar @deletedorders_using_biblio ; |
521 |
} )->count, |
| 533 |
$template->param (countdeletedorders => $count_deletedorders_using_biblio); |
522 |
countdeletedorders => $orders->search( { |
|
|
523 |
datecancellationprinted => [ { '!=' => [ -and => ( undef, '0000-00-00' ) ] } ] |
| 524 |
} )->count, |
| 525 |
) if $orders->count; |
| 534 |
|
526 |
|
| 535 |
output_html_with_http_headers $query, $cookie, $template->output; |
527 |
output_html_with_http_headers $query, $cookie, $template->output; |
| 536 |
- |
|
|