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