|
Lines 35-40
use C4::Circulation; # to use itemissues
Link Here
|
| 35 |
use C4::Members; # to use GetMember |
35 |
use C4::Members; # to use GetMember |
| 36 |
use C4::Search; # enabled_staff_search_views |
36 |
use C4::Search; # enabled_staff_search_views |
| 37 |
use C4::Members qw/GetHideLostItemsPreference/; |
37 |
use C4::Members qw/GetHideLostItemsPreference/; |
|
|
38 |
use C4::Reserves qw(GetReservesFromBiblionumber); |
| 38 |
use Koha::DateUtils; |
39 |
use Koha::DateUtils; |
| 39 |
|
40 |
|
| 40 |
my $query=new CGI; |
41 |
my $query=new CGI; |
|
Lines 215-221
$template->param(
Link Here
|
| 215 |
$template->param(ONLY_ONE => 1) if ( $itemnumber && $showncount != @items ); |
216 |
$template->param(ONLY_ONE => 1) if ( $itemnumber && $showncount != @items ); |
| 216 |
$template->{'VARS'}->{'searchid'} = $query->param('searchid'); |
217 |
$template->{'VARS'}->{'searchid'} = $query->param('searchid'); |
| 217 |
|
218 |
|
|
|
219 |
my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber); |
| 220 |
my @deletedorders_using_biblio; |
| 221 |
my @orders_using_biblio; |
| 222 |
my @baskets_orders; |
| 223 |
my @baskets_deletedorders; |
| 224 |
|
| 225 |
foreach my $myorder (@allorders_using_biblio) { |
| 226 |
my $basket = $myorder->{'basketno'}; |
| 227 |
if ((defined $myorder->{'datecancellationprinted'}) and ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){ |
| 228 |
push @deletedorders_using_biblio, $myorder; |
| 229 |
unless (grep(/^$basket$/, @baskets_deletedorders)){ |
| 230 |
push @baskets_deletedorders,$myorder->{'basketno'}; |
| 231 |
} |
| 232 |
} |
| 233 |
else { |
| 234 |
push @orders_using_biblio, $myorder; |
| 235 |
unless (grep(/^$basket$/, @baskets_orders)){ |
| 236 |
push @baskets_orders,$myorder->{'basketno'}; |
| 237 |
} |
| 238 |
} |
| 239 |
} |
| 240 |
|
| 241 |
my $count_orders_using_biblio = scalar @orders_using_biblio ; |
| 242 |
$template->param (countorders => $count_orders_using_biblio); |
| 243 |
|
| 244 |
my $count_deletedorders_using_biblio = scalar @deletedorders_using_biblio ; |
| 245 |
$template->param (countdeletedorders => $count_deletedorders_using_biblio); |
| 218 |
|
246 |
|
|
|
247 |
my $holds = GetReservesFromBiblionumber({ biblionumber => $biblionumber, all_dates => 1 }); |
| 248 |
my $holdcount = scalar( @$holds ); |
| 249 |
$template->param( holdcount => scalar ( @$holds ) ); |
| 219 |
|
250 |
|
| 220 |
output_html_with_http_headers $query, $cookie, $template->output; |
251 |
output_html_with_http_headers $query, $cookie, $template->output; |
| 221 |
|
252 |
|
| 222 |
- |
|
|