|
Lines 42-47
use C4::Images;
Link Here
|
| 42 |
use Koha::DateUtils; |
42 |
use Koha::DateUtils; |
| 43 |
use C4::HTML5Media; |
43 |
use C4::HTML5Media; |
| 44 |
use C4::CourseReserves qw(GetItemCourseReservesInfo); |
44 |
use C4::CourseReserves qw(GetItemCourseReservesInfo); |
|
|
45 |
use C4::Acquisition qw(GetOrdersByBiblionumber); |
| 45 |
|
46 |
|
| 46 |
# use Smart::Comments; |
47 |
# use Smart::Comments; |
| 47 |
|
48 |
|
|
Lines 412-415
if (C4::Context->preference('TagsEnabled') and $tag_quantity = C4::Context->pref
Link Here
|
| 412 |
my ( $holdcount, $holds ) = C4::Reserves::GetReservesFromBiblionumber($biblionumber,1); |
413 |
my ( $holdcount, $holds ) = C4::Reserves::GetReservesFromBiblionumber($biblionumber,1); |
| 413 |
$template->param( holdcount => $holdcount, holds => $holds ); |
414 |
$template->param( holdcount => $holdcount, holds => $holds ); |
| 414 |
|
415 |
|
| 415 |
output_html_with_http_headers $query, $cookie, $template->output; |
416 |
my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber); |
|
|
417 |
my @deletedorders_using_biblio; |
| 418 |
my @orders_using_biblio; |
| 419 |
my @baskets_orders; |
| 420 |
my @baskets_deletedorders; |
| 421 |
|
| 422 |
foreach my $myorder (@allorders_using_biblio) { |
| 423 |
my $basket = $myorder->{'basketno'}; |
| 424 |
if ((defined $myorder->{'datecancellationprinted'}) and ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){ |
| 425 |
push @deletedorders_using_biblio, $myorder; |
| 426 |
unless (grep(/^$basket$/, @baskets_deletedorders)){ |
| 427 |
push @baskets_deletedorders,$myorder->{'basketno'}; |
| 428 |
} |
| 429 |
} |
| 430 |
else { |
| 431 |
push @orders_using_biblio, $myorder; |
| 432 |
unless (grep(/^$basket$/, @baskets_orders)){ |
| 433 |
push @baskets_orders,$myorder->{'basketno'}; |
| 434 |
} |
| 435 |
} |
| 436 |
} |
| 437 |
|
| 438 |
my $count_orders_using_biblio = scalar @orders_using_biblio ; |
| 439 |
$template->param (countorders => $count_orders_using_biblio); |
| 440 |
|
| 441 |
my $count_deletedorders_using_biblio = scalar @deletedorders_using_biblio ; |
| 442 |
$template->param (countdeletedorders => $count_deletedorders_using_biblio); |
| 443 |
|
| 444 |
$template->param (basketsorders => \@baskets_orders); |
| 445 |
$template->param (basketsdeletedorders => \@baskets_deletedorders); |
| 446 |
|
| 447 |
output_html_with_http_headers $query, $cookie, $template->output; |