Lines 2-8
Link Here
|
2 |
|
2 |
|
3 |
use Modern::Perl; |
3 |
use Modern::Perl; |
4 |
|
4 |
|
5 |
use Test::More tests => 16; |
5 |
use Test::More tests => 19; |
6 |
use MARC::Record; |
6 |
use MARC::Record; |
7 |
use DateTime::Duration; |
7 |
use DateTime::Duration; |
8 |
|
8 |
|
Lines 263-266
is(exists $messages->{ResFound}?1:0, 1, 'AddReturn considers future reserve with
Link Here
|
263 |
|
263 |
|
264 |
# End of tests for bug 9761 (ConfirmFutureHolds) |
264 |
# End of tests for bug 9761 (ConfirmFutureHolds) |
265 |
|
265 |
|
|
|
266 |
# Tests for bug 9788: Does GetReservesFromItemnumber return a future wait? |
267 |
# 9788a: GetReservesFromItemnumber does not return future next available hold |
268 |
$dbh->do("DELETE FROM reserves WHERE biblionumber=?",undef,($bibnum)); |
269 |
C4::Context->set_preference('ConfirmFutureHolds', 2); |
270 |
C4::Context->set_preference('AllowHoldDateInFuture', 1); |
271 |
$resdate= dt_from_string(); |
272 |
$resdate->add_duration(DateTime::Duration->new(days => 2)); |
273 |
$resdate=output_pref($resdate); |
274 |
AddReserve('CPL', $requesters{'CPL'}, $bibnum, |
275 |
$constraint, $bibitems, 1, $resdate, $expdate, $notes, |
276 |
$title, $checkitem, $found); |
277 |
my @results= GetReservesFromItemnumber($itemnumber); |
278 |
is(defined $results[3]?1:0, 0, 'GetReservesFromItemnumber does not return a future next available hold'); |
279 |
# 9788b: GetReservesFromItemnumber does not return future item level hold |
280 |
$dbh->do("DELETE FROM reserves WHERE biblionumber=?",undef,($bibnum)); |
281 |
AddReserve('CPL', $requesters{'CPL'}, $bibnum, |
282 |
$constraint, $bibitems, 1, $resdate, $expdate, $notes, |
283 |
$title, $itemnumber, $found); #item level hold |
284 |
my @results= GetReservesFromItemnumber($itemnumber); |
285 |
is(defined $results[3]?1:0, 0, 'GetReservesFromItemnumber does not return a future item level hold'); |
286 |
# 9788c: GetReservesFromItemnumber returns future wait (confirmed future hold) |
287 |
ModReserveAffect( $itemnumber, $requesters{'CPL'} , 0); #confirm hold |
288 |
my @results= GetReservesFromItemnumber($itemnumber); |
289 |
is(defined $results[3]?1:0, 1, 'GetReservesFromItemnumber returns a future wait (confirmed future hold)'); |
290 |
|
291 |
# End of tests for bug 9788 |
292 |
|
266 |
$dbh->rollback; |
293 |
$dbh->rollback; |
267 |
- |
|
|