Lines 385-392
foreach my $biblionumber (@biblionumbers) {
Link Here
|
385 |
$biblioloopiter{noitems} = 1; |
385 |
$biblioloopiter{noitems} = 1; |
386 |
} |
386 |
} |
387 |
|
387 |
|
388 |
## Here we go backwards again to create hash of biblioitemnumber to itemnumbers, |
388 |
## Here we go backwards again to create hash of biblioitemnumber to itemnumbers |
389 |
## when by definition all of the itemnumber have the same biblioitemnumber |
389 |
## this is important when we have analytic items which may be on another record |
390 |
my ( $iteminfos_of ); |
390 |
my ( $iteminfos_of ); |
391 |
while ( my $item = $items->next ) { |
391 |
while ( my $item = $items->next ) { |
392 |
$item = $item->unblessed; |
392 |
$item = $item->unblessed; |
Lines 396-402
foreach my $biblionumber (@biblionumbers) {
Link Here
|
396 |
$iteminfos_of->{$itemnumber} = $item; |
396 |
$iteminfos_of->{$itemnumber} = $item; |
397 |
} |
397 |
} |
398 |
|
398 |
|
399 |
## Should be same as biblionumber |
|
|
400 |
my @biblioitemnumbers = keys %itemnumbers_of_biblioitem; |
399 |
my @biblioitemnumbers = keys %itemnumbers_of_biblioitem; |
401 |
|
400 |
|
402 |
my $biblioiteminfos_of = { |
401 |
my $biblioiteminfos_of = { |
Lines 444-450
foreach my $biblionumber (@biblionumbers) {
Link Here
|
444 |
# (before this loop was inside that sub loop so it was O(n^2) ) |
443 |
# (before this loop was inside that sub loop so it was O(n^2) ) |
445 |
my $items_any_available; |
444 |
my $items_any_available; |
446 |
|
445 |
|
447 |
$items_any_available = ItemsAnyAvailableAndNotRestricted( { biblionumber => $biblioitemnumber, patron => $patron }) |
446 |
$items_any_available = ItemsAnyAvailableAndNotRestricted( { biblionumber => $biblioitem->{biblionumber}, patron => $patron }) |
448 |
if $patron; |
447 |
if $patron; |
449 |
|
448 |
|
450 |
foreach my $itemnumber ( @{ $itemnumbers_of_biblioitem{$biblioitemnumber} } ) { |
449 |
foreach my $itemnumber ( @{ $itemnumbers_of_biblioitem{$biblioitemnumber} } ) { |
451 |
- |
|
|