Lines 402-409
foreach my $biblionumber (@biblionumbers) {
Link Here
|
402 |
$biblioloopiter{noitems} = 1; |
402 |
$biblioloopiter{noitems} = 1; |
403 |
} |
403 |
} |
404 |
|
404 |
|
405 |
## Here we go backwards again to create hash of biblioitemnumber to itemnumbers, |
405 |
## Here we go backwards again to create hash of biblioitemnumber to itemnumbers |
406 |
## when by definition all of the itemnumber have the same biblioitemnumber |
406 |
## this is important when we have analytic items which may be on another record |
407 |
my ( $iteminfos_of ); |
407 |
my ( $iteminfos_of ); |
408 |
while ( my $item = $items->next ) { |
408 |
while ( my $item = $items->next ) { |
409 |
$item = $item->unblessed; |
409 |
$item = $item->unblessed; |
Lines 413-419
foreach my $biblionumber (@biblionumbers) {
Link Here
|
413 |
$iteminfos_of->{$itemnumber} = $item; |
413 |
$iteminfos_of->{$itemnumber} = $item; |
414 |
} |
414 |
} |
415 |
|
415 |
|
416 |
## Should be same as biblionumber |
|
|
417 |
my @biblioitemnumbers = keys %itemnumbers_of_biblioitem; |
416 |
my @biblioitemnumbers = keys %itemnumbers_of_biblioitem; |
418 |
|
417 |
|
419 |
my $biblioiteminfos_of = { |
418 |
my $biblioiteminfos_of = { |
Lines 461-467
foreach my $biblionumber (@biblionumbers) {
Link Here
|
461 |
# (before this loop was inside that sub loop so it was O(n^2) ) |
460 |
# (before this loop was inside that sub loop so it was O(n^2) ) |
462 |
my $items_any_available; |
461 |
my $items_any_available; |
463 |
|
462 |
|
464 |
$items_any_available = ItemsAnyAvailableAndNotRestricted( { biblionumber => $biblioitemnumber, patron => $patron }) |
463 |
$items_any_available = ItemsAnyAvailableAndNotRestricted( { biblionumber => $biblioitem->{biblionumber}, patron => $patron }) |
465 |
if $patron; |
464 |
if $patron; |
466 |
|
465 |
|
467 |
foreach my $itemnumber ( @{ $itemnumbers_of_biblioitem{$biblioitemnumber} } ) { |
466 |
foreach my $itemnumber ( @{ $itemnumbers_of_biblioitem{$biblioitemnumber} } ) { |
468 |
- |
|
|