$canReserve = &CanItemBeReserved($borrowernumber, $itemnumber, $branchcode)
if ($canReserve->{status} eq 'OK') { #We can reserve this Item! }
+<<<<<<< HEAD
@RETURNS { status => OK }, if the Item can be reserved.
{ status => ageRestricted }, if the Item is age restricted for this borrower.
{ status => damaged }, if the Item is damaged.
{ status => notReservable }, if holds on this item are not allowed
{ status => libraryNotFound }, if given branchcode is not an existing library
{ status => libraryNotPickupLocation }, if given branchcode is not configured to be a pickup location
+=======
+@RETURNS OK, if the Item can be reserved.
+ ageRestricted, if the Item is age restricted for this borrower.
+ damaged, if the Item is damaged.
+ cannotReserveFromOtherBranches, if syspref 'canreservefromotherbranches' is OK.
+ tooManyReserves, if the borrower has exceeded his maximum reserve amount.
+ notReservable, if holds on this item are not allowed
+ libraryNotFound if given branchcode is not an existing library
+ libraryNotPickupLocation if given branchcode is not configured to be a pickup location
+ cannotBeTransferred if branch transfer limit applies on given item and branchcode
+>>>>>>> Bug 7614: Check transfer limit in CanBookBeReserved and CanItemBeReserved
=cut
my $destination = Koha::Libraries->find({
branchcode => $pickup_branchcode,
});
+
unless ($destination) {
return { status => 'libraryNotFound' };
}
unless ($destination->pickup_location) {
return { status => 'libraryNotPickupLocation' };
}
+ unless ($item->can_be_transferred({ to => $destination })) {
+ return 'cannotBeTransferred';
+ }
}
return { status => 'OK' };
use Test::More tests => 57;
use MARC::Record;
-use C4::Items;
+
use C4::Biblio;
-use C4::Reserves;
use C4::Calendar;
+use C4::Items;
+use C4::Reserves;
-use Koha::Database;
-use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Biblios;
use Koha::CirculationRules;
+use Koha::Database;
+use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Holds;
use Koha::IssuingRules;
+use Koha::Item::Transfer::Limits;
use Koha::Items;
use Koha::Libraries;
use Koha::Patrons;
};
subtest 'Pickup location availability tests' => sub {
- plan tests => 3;
+ plan tests => 4;
my ( $bibnum, $title, $bibitemnum ) = create_helper_biblio('ONLY1');
my ( $item_bibnum, $item_bibitemnum, $itemnumber )
my $item = Koha::Items->find($itemnumber);
my $branch_to = $builder->build({ source => 'Branch' })->{ branchcode };
my $library = Koha::Libraries->find($branch_to);
+ $library->pickup_location('1')->store;
my $patron = $builder->build({ source => 'Borrower' })->{ borrowernumber };
t::lib::Mocks::mock_preference('UseBranchTransferLimits', 1);
t::lib::Mocks::mock_preference('BranchTransferLimitsType', 'itemtype');
+
$library->pickup_location('1')->store;
is(CanItemBeReserved($patron, $item->itemnumber, $branch_to)->{status},
'OK', 'Library is a pickup location');
+
+ my $limit = Koha::Item::Transfer::Limit->new({
+ fromBranch => $item->holdingbranch,
+ toBranch => $branch_to,
+ itemtype => $item->effective_itemtype,
+ })->store;
+ is(CanItemBeReserved($patron, $item->itemnumber, $branch_to),
+ 'cannotBeTransferred', 'Item cannot be transferred');
+ $limit->delete;
+
$library->pickup_location('0')->store;
is(CanItemBeReserved($patron, $item->itemnumber, $branch_to)->{status},
'libraryNotPickupLocation', 'Library is not a pickup location');