Lines 7-13
use t::lib::TestBuilder;
Link Here
|
7 |
|
7 |
|
8 |
use C4::Context; |
8 |
use C4::Context; |
9 |
|
9 |
|
10 |
use Test::More tests => 58; |
10 |
use Test::More tests => 57; |
11 |
use MARC::Record; |
11 |
use MARC::Record; |
12 |
use C4::Biblio; |
12 |
use C4::Biblio; |
13 |
use C4::Items; |
13 |
use C4::Items; |
Lines 211-221
ModReserveMinusPriority( $itemnumber, $reserve->{'reserve_id'} );
Link Here
|
211 |
$holds = $patron->holds; |
211 |
$holds = $patron->holds; |
212 |
is( $holds->next->itemnumber, $itemnumber, "Test ModReserveMinusPriority()" ); |
212 |
is( $holds->next->itemnumber, $itemnumber, "Test ModReserveMinusPriority()" ); |
213 |
|
213 |
|
214 |
|
|
|
215 |
my $reserve2 = GetReserveInfo( $reserve->{'reserve_id'} ); |
216 |
ok( $reserve->{'reserve_id'} eq $reserve2->{'reserve_id'}, "Test GetReserveInfo()" ); |
217 |
|
218 |
|
219 |
$holds = $biblio->holds; |
214 |
$holds = $biblio->holds; |
220 |
$hold = $holds->next; |
215 |
$hold = $holds->next; |
221 |
AlterPriority( 'top', $hold->reserve_id ); |
216 |
AlterPriority( 'top', $hold->reserve_id ); |
Lines 323-329
my $reserveid2 = C4::Reserves::GetReserveId(
Link Here
|
323 |
|
318 |
|
324 |
CancelReserve({ reserve_id => $reserveid1 }); |
319 |
CancelReserve({ reserve_id => $reserveid1 }); |
325 |
|
320 |
|
326 |
$reserve2 = GetReserve( $reserveid2 ); |
321 |
my $reserve2 = GetReserve( $reserveid2 ); |
327 |
is( $reserve2->{priority}, 1, "After cancelreserve, the 2nd reserve becomes the first on the waiting list" ); |
322 |
is( $reserve2->{priority}, 1, "After cancelreserve, the 2nd reserve becomes the first on the waiting list" ); |
328 |
|
323 |
|
329 |
($item_bibnum, $item_bibitemnum, $itemnumber) = AddItem({ homebranch => $branch_1, holdingbranch => $branch_1 } , $bibnum); |
324 |
($item_bibnum, $item_bibitemnum, $itemnumber) = AddItem({ homebranch => $branch_1, holdingbranch => $branch_1 } , $bibnum); |