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