Lines 17-23
Link Here
|
17 |
|
17 |
|
18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
19 |
|
19 |
|
20 |
use Test::More tests => 58; |
20 |
use Test::More tests => 56; |
21 |
use Test::MockModule; |
21 |
use Test::MockModule; |
22 |
use Test::Warn; |
22 |
use Test::Warn; |
23 |
|
23 |
|
Lines 540-569
$item = GetItem($itemnumber);
Link Here
|
540 |
|
540 |
|
541 |
ok( C4::Reserves::IsAvailableForItemLevelRequest($item, $borrower), "Reserving a book on item level" ); |
541 |
ok( C4::Reserves::IsAvailableForItemLevelRequest($item, $borrower), "Reserving a book on item level" ); |
542 |
|
542 |
|
543 |
my $itype = C4::Reserves::_get_itype($item); |
|
|
544 |
my $categorycode = $borrower->{categorycode}; |
545 |
my $holdingbranch = $item->{holdingbranch}; |
546 |
my $issuing_rule = Koha::IssuingRules->get_effective_issuing_rule( |
547 |
{ |
548 |
categorycode => $categorycode, |
549 |
itemtype => $itype, |
550 |
branchcode => $holdingbranch |
551 |
} |
552 |
); |
553 |
|
554 |
$dbh->do( |
555 |
"UPDATE issuingrules SET onshelfholds = 1 WHERE categorycode = ? AND itemtype= ? and branchcode = ?", |
556 |
undef, |
557 |
$issuing_rule->categorycode, $issuing_rule->itemtype, $issuing_rule->branchcode |
558 |
); |
559 |
ok( C4::Reserves::OnShelfHoldsAllowed($item, $borrower), "OnShelfHoldsAllowed() allowed" ); |
560 |
$dbh->do( |
561 |
"UPDATE issuingrules SET onshelfholds = 0 WHERE categorycode = ? AND itemtype= ? and branchcode = ?", |
562 |
undef, |
563 |
$issuing_rule->categorycode, $issuing_rule->itemtype, $issuing_rule->branchcode |
564 |
); |
565 |
ok( !C4::Reserves::OnShelfHoldsAllowed($item, $borrower), "OnShelfHoldsAllowed() disallowed" ); |
566 |
|
567 |
# tests for MoveReserve in relation to ConfirmFutureHolds (BZ 14526) |
543 |
# tests for MoveReserve in relation to ConfirmFutureHolds (BZ 14526) |
568 |
# hold from A pos 1, today, no fut holds: MoveReserve should fill it |
544 |
# hold from A pos 1, today, no fut holds: MoveReserve should fill it |
569 |
$dbh->do('DELETE FROM reserves', undef, ($bibnum)); |
545 |
$dbh->do('DELETE FROM reserves', undef, ($bibnum)); |
570 |
- |
|
|