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