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 |
- |
|
|