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