|
Lines 404-411
is(
Link Here
|
| 404 |
my $letter = ReserveSlip($branch_1, $requesters{$branch_1}, $bibnum); |
404 |
my $letter = ReserveSlip($branch_1, $requesters{$branch_1}, $bibnum); |
| 405 |
ok(defined($letter), 'can successfully generate hold slip (bug 10949)'); |
405 |
ok(defined($letter), 'can successfully generate hold slip (bug 10949)'); |
| 406 |
|
406 |
|
| 407 |
# Tests for bug 9788: Does GetReservesFromItemnumber return a future wait? |
407 |
# Tests for bug 9788: Does Koha::Item->holds_placed_before_today return a future wait? |
| 408 |
# 9788a: GetReservesFromItemnumber does not return future next available hold |
408 |
# 9788a: holds_placed_before_today does not return future next available hold |
| 409 |
$dbh->do("DELETE FROM reserves WHERE biblionumber=?",undef,($bibnum)); |
409 |
$dbh->do("DELETE FROM reserves WHERE biblionumber=?",undef,($bibnum)); |
| 410 |
t::lib::Mocks::mock_preference('ConfirmFutureHolds', 2); |
410 |
t::lib::Mocks::mock_preference('ConfirmFutureHolds', 2); |
| 411 |
t::lib::Mocks::mock_preference('AllowHoldDateInFuture', 1); |
411 |
t::lib::Mocks::mock_preference('AllowHoldDateInFuture', 1); |
|
Lines 415-433
$resdate=output_pref($resdate);
Link Here
|
| 415 |
AddReserve($branch_1, $requesters{$branch_1}, $bibnum, |
415 |
AddReserve($branch_1, $requesters{$branch_1}, $bibnum, |
| 416 |
$bibitems, 1, $resdate, $expdate, $notes, |
416 |
$bibitems, 1, $resdate, $expdate, $notes, |
| 417 |
$title, $checkitem, $found); |
417 |
$title, $checkitem, $found); |
| 418 |
my @results= GetReservesFromItemnumber($itemnumber); |
418 |
my $item = Koha::Items->find( $itemnumber ); |
| 419 |
is(defined $results[3]?1:0, 0, 'GetReservesFromItemnumber does not return a future next available hold'); |
419 |
$holds = $item->holds_placed_before_today; |
| 420 |
# 9788b: GetReservesFromItemnumber does not return future item level hold |
420 |
my $dtf = Koha::Database->new->schema->storage->datetime_parser; |
|
|
421 |
my $future_holds = $holds->search({ reservedate => { '>' => $dtf->format_date( dt_from_string ) } } ); |
| 422 |
is( $future_holds->count, 0, 'holds_placed_before_today does not return a future next available hold'); |
| 423 |
# 9788b: holds_placed_before_today does not return future item level hold |
| 421 |
$dbh->do("DELETE FROM reserves WHERE biblionumber=?",undef,($bibnum)); |
424 |
$dbh->do("DELETE FROM reserves WHERE biblionumber=?",undef,($bibnum)); |
| 422 |
AddReserve($branch_1, $requesters{$branch_1}, $bibnum, |
425 |
AddReserve($branch_1, $requesters{$branch_1}, $bibnum, |
| 423 |
$bibitems, 1, $resdate, $expdate, $notes, |
426 |
$bibitems, 1, $resdate, $expdate, $notes, |
| 424 |
$title, $itemnumber, $found); #item level hold |
427 |
$title, $itemnumber, $found); #item level hold |
| 425 |
@results= GetReservesFromItemnumber($itemnumber); |
428 |
$future_holds = $holds->search({ reservedate => { '>' => $dtf->format_date( dt_from_string ) } } ); |
| 426 |
is(defined $results[3]?1:0, 0, 'GetReservesFromItemnumber does not return a future item level hold'); |
429 |
is( $future_holds->count, 0, 'holds_placed_before_today does not return a future item level hold' ); |
| 427 |
# 9788c: GetReservesFromItemnumber returns future wait (confirmed future hold) |
430 |
# 9788c: holds_placed_before_today returns future wait (confirmed future hold) |
| 428 |
ModReserveAffect( $itemnumber, $requesters{$branch_1} , 0); #confirm hold |
431 |
ModReserveAffect( $itemnumber, $requesters{$branch_1} , 0); #confirm hold |
| 429 |
@results= GetReservesFromItemnumber($itemnumber); |
432 |
$future_holds = $holds->search({ reservedate => { '>' => $dtf->format_date( dt_from_string ) } } ); |
| 430 |
is(defined $results[3]?1:0, 1, 'GetReservesFromItemnumber returns a future wait (confirmed future hold)'); |
433 |
is( $future_holds->count, 1, 'holds_placed_before_today returns a future wait (confirmed future hold)' ); |
| 431 |
# End of tests for bug 9788 |
434 |
# End of tests for bug 9788 |
| 432 |
|
435 |
|
| 433 |
$dbh->do("DELETE FROM reserves WHERE biblionumber=?",undef,($bibnum)); |
436 |
$dbh->do("DELETE FROM reserves WHERE biblionumber=?",undef,($bibnum)); |
|
Lines 547-553
is( C4::Reserves::CanBookBeReserved($borrowernumber, $biblionumber) , 'OK', "Res
Link Here
|
| 547 |
####### EO Bug 13113 <<< |
550 |
####### EO Bug 13113 <<< |
| 548 |
#### |
551 |
#### |
| 549 |
|
552 |
|
| 550 |
my $item = GetItem($itemnumber); |
553 |
$item = GetItem($itemnumber); |
| 551 |
|
554 |
|
| 552 |
ok( C4::Reserves::IsAvailableForItemLevelRequest($item, $borrower), "Reserving a book on item level" ); |
555 |
ok( C4::Reserves::IsAvailableForItemLevelRequest($item, $borrower), "Reserving a book on item level" ); |
| 553 |
|
556 |
|
| 554 |
- |
|
|