Lines 396-403
is(
Link Here
|
396 |
my $letter = ReserveSlip($branch_1, $requesters{$branch_1}, $bibnum); |
396 |
my $letter = ReserveSlip($branch_1, $requesters{$branch_1}, $bibnum); |
397 |
ok(defined($letter), 'can successfully generate hold slip (bug 10949)'); |
397 |
ok(defined($letter), 'can successfully generate hold slip (bug 10949)'); |
398 |
|
398 |
|
399 |
# Tests for bug 9788: Does GetReservesFromItemnumber return a future wait? |
399 |
# Tests for bug 9788: Does Koha::Item->holds_placed_before_today return a future wait? |
400 |
# 9788a: GetReservesFromItemnumber does not return future next available hold |
400 |
# 9788a: holds_placed_before_today does not return future next available hold |
401 |
$dbh->do("DELETE FROM reserves WHERE biblionumber=?",undef,($bibnum)); |
401 |
$dbh->do("DELETE FROM reserves WHERE biblionumber=?",undef,($bibnum)); |
402 |
t::lib::Mocks::mock_preference('ConfirmFutureHolds', 2); |
402 |
t::lib::Mocks::mock_preference('ConfirmFutureHolds', 2); |
403 |
t::lib::Mocks::mock_preference('AllowHoldDateInFuture', 1); |
403 |
t::lib::Mocks::mock_preference('AllowHoldDateInFuture', 1); |
Lines 407-425
$resdate=output_pref($resdate);
Link Here
|
407 |
AddReserve($branch_1, $requesters{$branch_1}, $bibnum, |
407 |
AddReserve($branch_1, $requesters{$branch_1}, $bibnum, |
408 |
$bibitems, 1, $resdate, $expdate, $notes, |
408 |
$bibitems, 1, $resdate, $expdate, $notes, |
409 |
$title, $checkitem, $found); |
409 |
$title, $checkitem, $found); |
410 |
my @results= GetReservesFromItemnumber($itemnumber); |
410 |
my $item = Koha::Items->find( $itemnumber ); |
411 |
is(defined $results[3]?1:0, 0, 'GetReservesFromItemnumber does not return a future next available hold'); |
411 |
$holds = $item->holds_placed_before_today; |
412 |
# 9788b: GetReservesFromItemnumber does not return future item level hold |
412 |
my $dtf = Koha::Database->new->schema->storage->datetime_parser; |
|
|
413 |
my $future_holds = $holds->search({ reservedate => { '>' => $dtf->format_date( dt_from_string ) } } ); |
414 |
is( $future_holds->count, 0, 'holds_placed_before_today does not return a future next available hold'); |
415 |
# 9788b: holds_placed_before_today does not return future item level hold |
413 |
$dbh->do("DELETE FROM reserves WHERE biblionumber=?",undef,($bibnum)); |
416 |
$dbh->do("DELETE FROM reserves WHERE biblionumber=?",undef,($bibnum)); |
414 |
AddReserve($branch_1, $requesters{$branch_1}, $bibnum, |
417 |
AddReserve($branch_1, $requesters{$branch_1}, $bibnum, |
415 |
$bibitems, 1, $resdate, $expdate, $notes, |
418 |
$bibitems, 1, $resdate, $expdate, $notes, |
416 |
$title, $itemnumber, $found); #item level hold |
419 |
$title, $itemnumber, $found); #item level hold |
417 |
@results= GetReservesFromItemnumber($itemnumber); |
420 |
$future_holds = $holds->search({ reservedate => { '>' => $dtf->format_date( dt_from_string ) } } ); |
418 |
is(defined $results[3]?1:0, 0, 'GetReservesFromItemnumber does not return a future item level hold'); |
421 |
is( $future_holds->count, 0, 'holds_placed_before_today does not return a future item level hold' ); |
419 |
# 9788c: GetReservesFromItemnumber returns future wait (confirmed future hold) |
422 |
# 9788c: holds_placed_before_today returns future wait (confirmed future hold) |
420 |
ModReserveAffect( $itemnumber, $requesters{$branch_1} , 0); #confirm hold |
423 |
ModReserveAffect( $itemnumber, $requesters{$branch_1} , 0); #confirm hold |
421 |
@results= GetReservesFromItemnumber($itemnumber); |
424 |
$future_holds = $holds->search({ reservedate => { '>' => $dtf->format_date( dt_from_string ) } } ); |
422 |
is(defined $results[3]?1:0, 1, 'GetReservesFromItemnumber returns a future wait (confirmed future hold)'); |
425 |
is( $future_holds->count, 1, 'holds_placed_before_today returns a future wait (confirmed future hold)' ); |
423 |
# End of tests for bug 9788 |
426 |
# End of tests for bug 9788 |
424 |
|
427 |
|
425 |
$dbh->do("DELETE FROM reserves WHERE biblionumber=?",undef,($bibnum)); |
428 |
$dbh->do("DELETE FROM reserves WHERE biblionumber=?",undef,($bibnum)); |
Lines 539-545
is( C4::Reserves::CanBookBeReserved($borrowernumber, $biblionumber) , 'OK', "Res
Link Here
|
539 |
####### EO Bug 13113 <<< |
542 |
####### EO Bug 13113 <<< |
540 |
#### |
543 |
#### |
541 |
|
544 |
|
542 |
my $item = GetItem($itemnumber); |
545 |
$item = GetItem($itemnumber); |
543 |
|
546 |
|
544 |
ok( C4::Reserves::IsAvailableForItemLevelRequest($item, $borrower), "Reserving a book on item level" ); |
547 |
ok( C4::Reserves::IsAvailableForItemLevelRequest($item, $borrower), "Reserving a book on item level" ); |
545 |
|
548 |
|
546 |
- |
|
|