Lines 336-344
subtest 'CanItemBeReserved' => sub {
Link Here
|
336 |
q{INSERT INTO issuingrules (categorycode, branchcode, itemtype, reservesallowed, holds_per_record) VALUES (?, ?, ?, ?, ?)}, {}, |
336 |
q{INSERT INTO issuingrules (categorycode, branchcode, itemtype, reservesallowed, holds_per_record) VALUES (?, ?, ?, ?, ?)}, {}, |
337 |
'*', '*', $itemtype_can, 2, 2 |
337 |
'*', '*', $itemtype_can, 2, 2 |
338 |
); |
338 |
); |
|
|
339 |
$dbh->do( |
340 |
q{INSERT INTO issuingrules (categorycode, branchcode, itemtype, reservesallowed, holds_per_record) VALUES (?, ?, ?, ?, ?)}, {}, |
341 |
'*', '*', 'CANNOT_RECORD', 0, 0 |
342 |
); |
339 |
|
343 |
|
340 |
subtest 'noReservesAllowed' => sub { |
344 |
subtest 'noReservesAllowed' => sub { |
341 |
plan tests => 4; |
345 |
plan tests => 5; |
342 |
|
346 |
|
343 |
my $biblionumber_cannot = $builder->build_sample_biblio({ itemtype => $itemtype_cant })->biblionumber; |
347 |
my $biblionumber_cannot = $builder->build_sample_biblio({ itemtype => $itemtype_cant })->biblionumber; |
344 |
my $biblionumber_can = $builder->build_sample_biblio({ itemtype => $itemtype_can })->biblionumber; |
348 |
my $biblionumber_can = $builder->build_sample_biblio({ itemtype => $itemtype_can })->biblionumber; |
Lines 348-353
subtest 'CanItemBeReserved' => sub {
Link Here
|
348 |
my ( undef, undef, $itemnumber_2_can ) = AddItem({ homebranch => $branch_1, holdingbranch => $branch_1, itype => 'CAN' } , $biblionumber_can); |
352 |
my ( undef, undef, $itemnumber_2_can ) = AddItem({ homebranch => $branch_1, holdingbranch => $branch_1, itype => 'CAN' } , $biblionumber_can); |
349 |
my ( undef, undef, $itemnumber_2_cannot ) = AddItem({ homebranch => $branch_1, holdingbranch => $branch_1, itype => 'CANNOT' } , $biblionumber_can); |
353 |
my ( undef, undef, $itemnumber_2_cannot ) = AddItem({ homebranch => $branch_1, holdingbranch => $branch_1, itype => 'CANNOT' } , $biblionumber_can); |
350 |
|
354 |
|
|
|
355 |
my ($biblionumber_record_cannot) = create_helper_biblio('CANNOT_RECORD'); |
356 |
my ( undef, undef, $itemnumber_3_cannot ) = AddItem({ homebranch => $branch_1, holdingbranch => $branch_1, itype => 'CANNOT_RECORD' } , $biblionumber_record_cannot); |
357 |
|
351 |
Koha::Holds->search({borrowernumber => $borrowernumbers[0]})->delete; |
358 |
Koha::Holds->search({borrowernumber => $borrowernumbers[0]})->delete; |
352 |
|
359 |
|
353 |
t::lib::Mocks::mock_preference('item-level_itypes', 1); |
360 |
t::lib::Mocks::mock_preference('item-level_itypes', 1); |
Lines 368-373
subtest 'CanItemBeReserved' => sub {
Link Here
|
368 |
CanItemBeReserved( $borrowernumbers[0], $itemnumber_2_cannot), 'OK', |
375 |
CanItemBeReserved( $borrowernumbers[0], $itemnumber_2_cannot), 'OK', |
369 |
"With biblio level set, rule from biblio must be picked (CAN)" |
376 |
"With biblio level set, rule from biblio must be picked (CAN)" |
370 |
); |
377 |
); |
|
|
378 |
is( |
379 |
CanItemBeReserved( $borrowernumbers[0], $itemnumber_3_cannot), 'noReservesAllowed', |
380 |
"When no holds allowed and no holds per record allowed should return noReservesAllowed" |
381 |
); |
371 |
}; |
382 |
}; |
372 |
|
383 |
|
373 |
subtest 'tooManyHoldsForThisRecord + tooManyReserves + itemAlreadyOnHold' => sub { |
384 |
subtest 'tooManyHoldsForThisRecord + tooManyReserves + itemAlreadyOnHold' => sub { |
374 |
- |
|
|