|
Lines 71-78
foreach my $borrowernumber ( @borrowernumbers ) {
Link Here
|
| 71 |
} |
71 |
} |
| 72 |
|
72 |
|
| 73 |
|
73 |
|
| 74 |
my ($count, $reserves) = GetReservesFromBiblionumber($biblionumber); |
74 |
my $reserves = GetReservesFromBiblionumber({ biblionumber => $biblionumber }); |
| 75 |
is( $count, $borrowers_count, "Test GetReserves()" ); |
75 |
is( scalar(@$reserves), $borrowers_count, "Test GetReserves()" ); |
| 76 |
|
76 |
|
| 77 |
|
77 |
|
| 78 |
my ( $reservedate, $borrowernumber, $branchcode, $reserve_id ) = GetReservesFromItemnumber($itemnumber); |
78 |
my ( $reservedate, $borrowernumber, $branchcode, $reserve_id ) = GetReservesFromItemnumber($itemnumber); |
|
Lines 87-94
ok( GetReserveCount( $borrowernumbers[0] ), "Test GetReserveCount()" );
Link Here
|
| 87 |
|
87 |
|
| 88 |
|
88 |
|
| 89 |
CancelReserve({ 'reserve_id' => $reserve_id }); |
89 |
CancelReserve({ 'reserve_id' => $reserve_id }); |
| 90 |
($count, $reserves) = GetReservesFromBiblionumber($biblionumber); |
90 |
$reserves = GetReservesFromBiblionumber({ biblionumber => $biblionumber }); |
| 91 |
ok( $count == $borrowers_count - 1, "Test CancelReserve()" ); |
91 |
is( scalar(@$reserves), $borrowers_count - 1, "Test CancelReserve()" ); |
| 92 |
|
92 |
|
| 93 |
|
93 |
|
| 94 |
( $reservedate, $borrowernumber, $branchcode, $reserve_id ) = GetReservesFromItemnumber($itemnumber); |
94 |
( $reservedate, $borrowernumber, $branchcode, $reserve_id ) = GetReservesFromItemnumber($itemnumber); |
|
Lines 148-154
my $reserve2 = GetReserveInfo( $reserve->{'reserve_id'} );
Link Here
|
| 148 |
ok( $reserve->{'reserve_id'} eq $reserve2->{'reserve_id'}, "Test GetReserveInfo()" ); |
148 |
ok( $reserve->{'reserve_id'} eq $reserve2->{'reserve_id'}, "Test GetReserveInfo()" ); |
| 149 |
|
149 |
|
| 150 |
|
150 |
|
| 151 |
($count, $reserves) = GetReservesFromBiblionumber($biblionumber,1); |
151 |
$reserves = GetReservesFromBiblionumber({ biblionumber => $biblionumber, all_dates => 1 }); |
| 152 |
$reserve = $reserves->[1]; |
152 |
$reserve = $reserves->[1]; |
| 153 |
AlterPriority( 'top', $reserve->{'reserve_id'} ); |
153 |
AlterPriority( 'top', $reserve->{'reserve_id'} ); |
| 154 |
$reserve = GetReserve( $reserve->{'reserve_id'} ); |
154 |
$reserve = GetReserve( $reserve->{'reserve_id'} ); |
| 155 |
- |
|
|