|
Lines 43-48
use C4::Dates qw/format_date/;
Link Here
|
| 43 |
use C4::Members; |
43 |
use C4::Members; |
| 44 |
use C4::Search; # enabled_staff_search_views |
44 |
use C4::Search; # enabled_staff_search_views |
| 45 |
use Koha::DateUtils; |
45 |
use Koha::DateUtils; |
|
|
46 |
use Koha::Database; |
| 46 |
|
47 |
|
| 47 |
my $dbh = C4::Context->dbh; |
48 |
my $dbh = C4::Context->dbh; |
| 48 |
my $sth; |
49 |
my $sth; |
|
Lines 475-482
foreach my $biblionumber (@biblionumbers) {
Link Here
|
| 475 |
$reserve{'wbrcode'} = $res->{'branchcode'}; |
476 |
$reserve{'wbrcode'} = $res->{'branchcode'}; |
| 476 |
$reserve{'itemnumber'} = $res->{'itemnumber'}; |
477 |
$reserve{'itemnumber'} = $res->{'itemnumber'}; |
| 477 |
$reserve{'wbrname'} = $branches->{$res->{'branchcode'}}->{'branchname'}; |
478 |
$reserve{'wbrname'} = $branches->{$res->{'branchcode'}}->{'branchname'}; |
|
|
479 |
warn $reserve{'holdingbranch'} . "==" . $reserve{'wbrcode'}; |
| 478 |
if($reserve{'holdingbranch'} eq $reserve{'wbrcode'}){ |
480 |
if($reserve{'holdingbranch'} eq $reserve{'wbrcode'}){ |
| 479 |
$reserve{'atdestination'} = 1; |
481 |
# Just because the holdingbranch matches the reserve branch doesn't mean the item |
|
|
482 |
# has arrived at the destination, check for an open transfer for the item as well |
| 483 |
unless ( |
| 484 |
Koha::Database->new()->schema()->resultset('Branchtransfer') |
| 485 |
->count( |
| 486 |
{ |
| 487 |
itemnumber => $res->{'itemnumber'}, |
| 488 |
tobranch => $res->{'branchcode'}, |
| 489 |
datearrived => undef, |
| 490 |
} |
| 491 |
) |
| 492 |
) |
| 493 |
{ |
| 494 |
$reserve{'atdestination'} = 1; |
| 495 |
} |
| 480 |
} |
496 |
} |
| 481 |
# set found to 1 if reserve is waiting for patron pickup |
497 |
# set found to 1 if reserve is waiting for patron pickup |
| 482 |
$reserve{'found'} = 1 if $res->{'found'} eq 'W'; |
498 |
$reserve{'found'} = 1 if $res->{'found'} eq 'W'; |
| 483 |
- |
|
|