Lines 261-273
subtest "maxsuspensiondays" => sub {
Link Here
|
261 |
); |
261 |
); |
262 |
|
262 |
|
263 |
DelDebarment( $THE_debarment->borrower_debarment_id ); |
263 |
DelDebarment( $THE_debarment->borrower_debarment_id ); |
264 |
|
|
|
265 |
# 2 hours late => ceil(.x/2) * 1 => 1 day of suspension |
266 |
AddIssue( $patron, $barcode, $hoursafter2 ); |
267 |
AddReturn( $barcode, $branchcode ); |
268 |
$debarments = $patron->restrictions; |
269 |
$THE_debarment = $debarments->next; |
270 |
is_deeply( $THE_debarment, undef, 'No debarment if in time' ); |
271 |
|
272 |
}; |
264 |
}; |
273 |
$schema->storage->txn_rollback; |
265 |
$schema->storage->txn_rollback; |
274 |
- |
|
|