|
Lines 216-231
my ($foreign_item_bibnum, $foreign_item_bibitemnum, $foreign_itemnumber)
Link Here
|
| 216 |
= AddItem({ homebranch => $branch_2, holdingbranch => $branch_2 } , $foreign_bibnum); |
216 |
= AddItem({ homebranch => $branch_2, holdingbranch => $branch_2 } , $foreign_bibnum); |
| 217 |
$dbh->do('DELETE FROM issuingrules'); |
217 |
$dbh->do('DELETE FROM issuingrules'); |
| 218 |
$dbh->do( |
218 |
$dbh->do( |
| 219 |
q{INSERT INTO issuingrules (categorycode, branchcode, itemtype, reservesallowed) |
219 |
q{INSERT INTO issuingrules (categorycode, branchcode, itemtype, reservesallowed, holds_per_record) |
| 220 |
VALUES (?, ?, ?, ?)}, |
220 |
VALUES (?, ?, ?, ?, ?)}, |
| 221 |
{}, |
221 |
{}, |
| 222 |
'*', '*', '*', 25 |
222 |
'*', '*', '*', 25, 99 |
| 223 |
); |
223 |
); |
| 224 |
$dbh->do( |
224 |
$dbh->do( |
| 225 |
q{INSERT INTO issuingrules (categorycode, branchcode, itemtype, reservesallowed) |
225 |
q{INSERT INTO issuingrules (categorycode, branchcode, itemtype, reservesallowed, holds_per_record) |
| 226 |
VALUES (?, ?, ?, ?)}, |
226 |
VALUES (?, ?, ?, ?, ?)}, |
| 227 |
{}, |
227 |
{}, |
| 228 |
'*', '*', 'CANNOT', 0 |
228 |
'*', '*', 'CANNOT', 0, 99 |
| 229 |
); |
229 |
); |
| 230 |
|
230 |
|
| 231 |
# make sure some basic sysprefs are set |
231 |
# make sure some basic sysprefs are set |
|
Lines 316-322
is( $reserve3->{priority}, 1, "After ModReserve, the 3rd reserve becomes the fir
Link Here
|
| 316 |
|
316 |
|
| 317 |
ModItem({ damaged => 1 }, $item_bibnum, $itemnumber); |
317 |
ModItem({ damaged => 1 }, $item_bibnum, $itemnumber); |
| 318 |
C4::Context->set_preference( 'AllowHoldsOnDamagedItems', 1 ); |
318 |
C4::Context->set_preference( 'AllowHoldsOnDamagedItems', 1 ); |
| 319 |
ok( CanItemBeReserved( $borrowernumbers[0], $itemnumber) eq 'OK', "Patron can reserve damaged item with AllowHoldsOnDamagedItems enabled" ); |
319 |
is( CanItemBeReserved( $borrowernumbers[0], $itemnumber), 'OK', "Patron can reserve damaged item with AllowHoldsOnDamagedItems enabled" ); |
| 320 |
ok( defined( ( CheckReserves($itemnumber) )[1] ), "Hold can be trapped for damaged item with AllowHoldsOnDamagedItems enabled" ); |
320 |
ok( defined( ( CheckReserves($itemnumber) )[1] ), "Hold can be trapped for damaged item with AllowHoldsOnDamagedItems enabled" ); |
| 321 |
C4::Context->set_preference( 'AllowHoldsOnDamagedItems', 0 ); |
321 |
C4::Context->set_preference( 'AllowHoldsOnDamagedItems', 0 ); |
| 322 |
ok( CanItemBeReserved( $borrowernumbers[0], $itemnumber) eq 'damaged', "Patron cannot reserve damaged item with AllowHoldsOnDamagedItems disabled" ); |
322 |
ok( CanItemBeReserved( $borrowernumbers[0], $itemnumber) eq 'damaged', "Patron cannot reserve damaged item with AllowHoldsOnDamagedItems disabled" ); |
|
Lines 332-339
AddReserve(
Link Here
|
| 332 |
'', |
332 |
'', |
| 333 |
1, |
333 |
1, |
| 334 |
); |
334 |
); |
| 335 |
ok( |
335 |
is( |
| 336 |
CanItemBeReserved( $borrowernumbers[0], $itemnumber) eq 'tooManyReserves', |
336 |
CanItemBeReserved( $borrowernumbers[0], $itemnumber), 'tooManyReserves', |
| 337 |
"cannot request item if policy that matches on item-level item type forbids it" |
337 |
"cannot request item if policy that matches on item-level item type forbids it" |
| 338 |
); |
338 |
); |
| 339 |
ModItem({ itype => 'CAN' }, $item_bibnum, $itemnumber); |
339 |
ModItem({ itype => 'CAN' }, $item_bibnum, $itemnumber); |
|
Lines 439-448
$dbh->do('DELETE FROM biblio');
Link Here
|
| 439 |
= AddItem( { homebranch => $branch_1, holdingbranch => $branch_1 }, $bibnum ); |
439 |
= AddItem( { homebranch => $branch_1, holdingbranch => $branch_1 }, $bibnum ); |
| 440 |
|
440 |
|
| 441 |
$dbh->do( |
441 |
$dbh->do( |
| 442 |
q{INSERT INTO issuingrules (categorycode, branchcode, itemtype, reservesallowed) |
442 |
q{INSERT INTO issuingrules (categorycode, branchcode, itemtype, reservesallowed, holds_per_record) |
| 443 |
VALUES (?, ?, ?, ?)}, |
443 |
VALUES (?, ?, ?, ?, ?)}, |
| 444 |
{}, |
444 |
{}, |
| 445 |
'*', '*', 'ONLY1', 1 |
445 |
'*', '*', 'ONLY1', 1, 99 |
| 446 |
); |
446 |
); |
| 447 |
is( CanItemBeReserved( $borrowernumbers[0], $itemnumber ), |
447 |
is( CanItemBeReserved( $borrowernumbers[0], $itemnumber ), |
| 448 |
'OK', 'Patron can reserve item with hold limit of 1, no holds placed' ); |
448 |
'OK', 'Patron can reserve item with hold limit of 1, no holds placed' ); |