|
Lines 2238-2243
sub _debar_user_on_return {
Link Here
|
| 2238 |
if DateTime::Duration->compare( $max_sd, $suspension_days ) < 0; |
2238 |
if DateTime::Duration->compare( $max_sd, $suspension_days ) < 0; |
| 2239 |
} |
2239 |
} |
| 2240 |
|
2240 |
|
|
|
2241 |
if ( C4::Context->preference('CumulativeRestrictionPeriods') and $borrower->{debarred} ) { |
| 2242 |
my $debarment = @{ GetDebarments( { borrowernumber => $borrower->{borrowernumber}, type => 'SUSPENSION' } ) }[0]; |
| 2243 |
if ( $debarment ) { |
| 2244 |
$return_date = dt_from_string( $debarment->{expiration}, 'sql' ); |
| 2245 |
} |
| 2246 |
} |
| 2247 |
|
| 2241 |
my $new_debar_dt = |
2248 |
my $new_debar_dt = |
| 2242 |
$dt_today->clone()->add_duration( $suspension_days ); |
2249 |
$dt_today->clone()->add_duration( $suspension_days ); |
| 2243 |
|
2250 |
|
| 2244 |
- |
|
|