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 |
- |
|
|