|
Lines 662-678
foreach my $biblionumber (@biblionumbers) {
Link Here
|
| 662 |
$reserve{'wbrcode'} = $res->branchcode(); |
662 |
$reserve{'wbrcode'} = $res->branchcode(); |
| 663 |
$reserve{'itemnumber'} = $res->itemnumber(); |
663 |
$reserve{'itemnumber'} = $res->itemnumber(); |
| 664 |
$reserve{'wbrname'} = $res->branch()->branchname(); |
664 |
$reserve{'wbrname'} = $res->branch()->branchname(); |
| 665 |
|
665 |
$reserve{'atdestination'} = $res->is_at_destination(); |
| 666 |
if ( $reserve{'holdingbranch'} eq $reserve{'wbrcode'} ) { |
|
|
| 667 |
|
| 668 |
# Just because the holdingbranch matches the reserve branch doesn't mean the item |
| 669 |
# has arrived at the destination, check for an open transfer for the item as well |
| 670 |
my ( $transfertwhen, $transfertfrom, $transferto ) = |
| 671 |
C4::Circulation::GetTransfers( $res->itemnumber() ); |
| 672 |
if ( not $transferto or $transferto ne $res->branchcode() ) { |
| 673 |
$reserve{'atdestination'} = 1; |
| 674 |
} |
| 675 |
} |
| 676 |
|
666 |
|
| 677 |
# set found to 1 if reserve is waiting for patron pickup |
667 |
# set found to 1 if reserve is waiting for patron pickup |
| 678 |
$reserve{'found'} = $res->is_found(); |
668 |
$reserve{'found'} = $res->is_found(); |
| 679 |
- |
|
|