|
Lines 44-49
use C4::Members;
Link Here
|
| 44 |
use C4::Search; # enabled_staff_search_views |
44 |
use C4::Search; # enabled_staff_search_views |
| 45 |
use Koha::DateUtils; |
45 |
use Koha::DateUtils; |
| 46 |
use Koha::Holds; |
46 |
use Koha::Holds; |
|
|
47 |
use Koha::Items; |
| 47 |
use Koha::Libraries; |
48 |
use Koha::Libraries; |
| 48 |
use Koha::Patrons; |
49 |
use Koha::Patrons; |
| 49 |
|
50 |
|
|
Lines 292-319
foreach my $biblionumber (@biblionumbers) {
Link Here
|
| 292 |
|
293 |
|
| 293 |
my %itemnumbers_of_biblioitem; |
294 |
my %itemnumbers_of_biblioitem; |
| 294 |
|
295 |
|
| 295 |
## $items is array of 'item' table numbers |
|
|
| 296 |
my $items = Koha::Items->search({ biblionumber => $biblionumber }); |
| 297 |
my @itemnumbers = $items->get_column('itemnumber'); |
| 298 |
my @hostitems = get_hostitemnumbers_of($biblionumber); |
296 |
my @hostitems = get_hostitemnumbers_of($biblionumber); |
|
|
297 |
my @itemnumbers; |
| 299 |
if (@hostitems){ |
298 |
if (@hostitems){ |
| 300 |
$template->param('hostitemsflag' => 1); |
299 |
$template->param('hostitemsflag' => 1); |
| 301 |
push(@itemnumbers, @hostitems); |
300 |
push(@itemnumbers, @hostitems); |
| 302 |
} |
301 |
} |
| 303 |
|
302 |
|
| 304 |
if (!@itemnumbers) { |
303 |
my $items = Koha::Items->search({ -or => { biblionumber => $biblionumber, itemnumber => { in => \@itemnumbers } } }); |
|
|
304 |
|
| 305 |
unless ( $items->count ) { |
| 306 |
# FIXME Then why do we continue? |
| 305 |
$template->param('noitems' => 1); |
307 |
$template->param('noitems' => 1); |
| 306 |
$biblioloopiter{noitems} = 1; |
308 |
$biblioloopiter{noitems} = 1; |
| 307 |
} |
309 |
} |
| 308 |
|
310 |
|
| 309 |
## Hash of item number to 'item' table fields |
|
|
| 310 |
my $iteminfos_of = GetItemInfosOf(@itemnumbers); |
| 311 |
|
| 312 |
## Here we go backwards again to create hash of biblioitemnumber to itemnumbers, |
311 |
## Here we go backwards again to create hash of biblioitemnumber to itemnumbers, |
| 313 |
## when by definition all of the itemnumber have the same biblioitemnumber |
312 |
## when by definition all of the itemnumber have the same biblioitemnumber |
| 314 |
foreach my $itemnumber (@itemnumbers) { |
313 |
my ( $itemnumbers_of_biblioitem, $iteminfos_of); |
| 315 |
my $biblioitemnumber = $iteminfos_of->{$itemnumber}->{biblioitemnumber}; |
314 |
while ( my $item = $items->next ) { |
|
|
315 |
$item = $item->unblessed; |
| 316 |
my $biblioitemnumber = $item->{biblioitemnumber}; |
| 317 |
my $itemnumber = $item->{itemnumber}; |
| 316 |
push( @{ $itemnumbers_of_biblioitem{$biblioitemnumber} }, $itemnumber ); |
318 |
push( @{ $itemnumbers_of_biblioitem{$biblioitemnumber} }, $itemnumber ); |
|
|
319 |
$iteminfos_of->{$itemnumber} = $item; |
| 317 |
} |
320 |
} |
| 318 |
|
321 |
|
| 319 |
## Should be same as biblionumber |
322 |
## Should be same as biblionumber |
| 320 |
- |
|
|