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