Lines 17-23
Link Here
|
17 |
|
17 |
|
18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
19 |
|
19 |
|
20 |
use Test::More tests => 50; |
20 |
use Test::More tests => 52; |
21 |
|
21 |
|
22 |
use MARC::Record; |
22 |
use MARC::Record; |
23 |
use DateTime::Duration; |
23 |
use DateTime::Duration; |
Lines 428-433
$p = C4::Reserves::CalculatePriority($bibnum, $resdate);
Link Here
|
428 |
is($p, 3, 'CalculatePriority should now return priority 3'); |
428 |
is($p, 3, 'CalculatePriority should now return priority 3'); |
429 |
# End of tests for bug 8918 |
429 |
# End of tests for bug 8918 |
430 |
|
430 |
|
|
|
431 |
# regression test for bug 12630 |
432 |
# Now there are 2 reserves on $bibnum |
433 |
t::lib::Mocks::mock_preference('AllowHoldDateInFuture', 1); |
434 |
my $borrowernumber_tmp_1 = AddMember( |
435 |
firstname => 'my firstname tmp 1', |
436 |
surname => 'my surname tmp 1', |
437 |
categorycode => 'S', |
438 |
branchcode => 'CPL', |
439 |
); |
440 |
my $borrowernumber_tmp_2 = AddMember( |
441 |
firstname => 'my firstname tmp 2', |
442 |
surname => 'my surname tmp 2', |
443 |
categorycode => 'S', |
444 |
branchcode => 'CPL', |
445 |
); |
446 |
my $date_in_future = dt_from_string(); |
447 |
$date_in_future = $date_in_future->add_duration(DateTime::Duration->new(days => 1)); |
448 |
AddReserve('CPL', $borrowernumber_tmp_1, $bibnum, undef, undef, 3, output_pref($date_in_future)); |
449 |
AddReserve('CPL', $borrowernumber_tmp_2, $bibnum, undef, undef, 4); |
450 |
my @r1 = GetReservesFromBorrowernumber( $borrowernumber_tmp_1 ); |
451 |
my @r2 = GetReservesFromBorrowernumber( $borrowernumber_tmp_2 ); |
452 |
is( $r1[0]->{priority}, 3, 'priority for hold in future should be correct'); |
453 |
is( $r2[0]->{priority}, 4, 'priority for hold not in future should be correct'); |
454 |
# end of tests for bug 12630 |
455 |
|
431 |
# Tests for cancel reserves by users from OPAC. |
456 |
# Tests for cancel reserves by users from OPAC. |
432 |
$dbh->do('DELETE FROM reserves', undef, ($bibnum)); |
457 |
$dbh->do('DELETE FROM reserves', undef, ($bibnum)); |
433 |
AddReserve('CPL', $requesters{'CPL'}, $item_bibnum, |
458 |
AddReserve('CPL', $requesters{'CPL'}, $item_bibnum, |
434 |
- |
|
|