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