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