Lines 291-296
is(
Link Here
|
291 |
my $letter = ReserveSlip('CPL', $requesters{'CPL'}, $bibnum); |
291 |
my $letter = ReserveSlip('CPL', $requesters{'CPL'}, $bibnum); |
292 |
ok(defined($letter), 'can successfully generate hold slip (bug 10949)'); |
292 |
ok(defined($letter), 'can successfully generate hold slip (bug 10949)'); |
293 |
|
293 |
|
|
|
294 |
# Tests for bug 9788: Does GetReservesFromItemnumber return a future wait? |
295 |
# 9788a: GetReservesFromItemnumber does not return future next available hold |
296 |
$dbh->do("DELETE FROM reserves WHERE biblionumber=?",undef,($bibnum)); |
297 |
C4::Context->set_preference('ConfirmFutureHolds', 2); |
298 |
C4::Context->set_preference('AllowHoldDateInFuture', 1); |
299 |
$resdate= dt_from_string(); |
300 |
$resdate->add_duration(DateTime::Duration->new(days => 2)); |
301 |
$resdate=output_pref($resdate); |
302 |
AddReserve('CPL', $requesters{'CPL'}, $bibnum, |
303 |
$constraint, $bibitems, 1, $resdate, $expdate, $notes, |
304 |
$title, $checkitem, $found); |
305 |
my @results= GetReservesFromItemnumber($itemnumber); |
306 |
is(defined $results[3]?1:0, 0, 'GetReservesFromItemnumber does not return a future next available hold'); |
307 |
# 9788b: GetReservesFromItemnumber does not return future item level hold |
308 |
$dbh->do("DELETE FROM reserves WHERE biblionumber=?",undef,($bibnum)); |
309 |
AddReserve('CPL', $requesters{'CPL'}, $bibnum, |
310 |
$constraint, $bibitems, 1, $resdate, $expdate, $notes, |
311 |
$title, $itemnumber, $found); #item level hold |
312 |
@results= GetReservesFromItemnumber($itemnumber); |
313 |
is(defined $results[3]?1:0, 0, 'GetReservesFromItemnumber does not return a future item level hold'); |
314 |
# 9788c: GetReservesFromItemnumber returns future wait (confirmed future hold) |
315 |
ModReserveAffect( $itemnumber, $requesters{'CPL'} , 0); #confirm hold |
316 |
@results= GetReservesFromItemnumber($itemnumber); |
317 |
is(defined $results[3]?1:0, 1, 'GetReservesFromItemnumber returns a future wait (confirmed future hold)'); |
318 |
# End of tests for bug 9788 |
319 |
|
294 |
$dbh->rollback; |
320 |
$dbh->rollback; |
295 |
|
321 |
|
296 |
sub count_hold_print_messages { |
322 |
sub count_hold_print_messages { |
297 |
- |
|
|