Lines 2249-2254
sub _debar_user_on_return {
Link Here
|
2249 |
if DateTime::Duration->compare( $max_sd, $suspension_days ) < 0; |
2249 |
if DateTime::Duration->compare( $max_sd, $suspension_days ) < 0; |
2250 |
} |
2250 |
} |
2251 |
|
2251 |
|
|
|
2252 |
if ( C4::Context->preference('CumulativeRestrictionPeriods') and $borrower->{debarred} ) { |
2253 |
my $debarment = @{ GetDebarments( { borrowernumber => $borrower->{borrowernumber}, type => 'SUSPENSION' } ) }[0]; |
2254 |
if ( $debarment ) { |
2255 |
$return_date = dt_from_string( $debarment->{expiration}, 'sql' ); |
2256 |
} |
2257 |
} |
2258 |
|
2252 |
my $new_debar_dt = |
2259 |
my $new_debar_dt = |
2253 |
$dt_today->clone()->add_duration( $suspension_days ); |
2260 |
$dt_today->clone()->add_duration( $suspension_days ); |
2254 |
|
2261 |
|
2255 |
- |
|
|