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