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