Lines 476-482
foreach my $biblionumber (@biblionumbers) {
Link Here
|
476 |
$reserve{'itemnumber'} = $res->{'itemnumber'}; |
476 |
$reserve{'itemnumber'} = $res->{'itemnumber'}; |
477 |
$reserve{'wbrname'} = $branches->{$res->{'branchcode'}}->{'branchname'}; |
477 |
$reserve{'wbrname'} = $branches->{$res->{'branchcode'}}->{'branchname'}; |
478 |
if($reserve{'holdingbranch'} eq $reserve{'wbrcode'}){ |
478 |
if($reserve{'holdingbranch'} eq $reserve{'wbrcode'}){ |
479 |
$reserve{'atdestination'} = 1; |
479 |
# Just because the holdingbranch matches the reserve branch doesn't mean the item |
|
|
480 |
# has arrived at the destination, check for an open transfer for the item as well |
481 |
my ( $transfertwhen, $transfertfrom, $transferto ) = C4::Circulation::GetTransfers( $res->{itemnumber} ); |
482 |
if ( not $transferto or $transferto ne $res->{branchcode} ) { |
483 |
$reserve{'atdestination'} = 1; |
484 |
} |
480 |
} |
485 |
} |
481 |
# set found to 1 if reserve is waiting for patron pickup |
486 |
# set found to 1 if reserve is waiting for patron pickup |
482 |
$reserve{'found'} = 1 if $res->{'found'} eq 'W'; |
487 |
$reserve{'found'} = 1 if $res->{'found'} eq 'W'; |
483 |
- |
|
|