Lines 1982-1988
sub _debar_user_on_return {
Link Here
|
1982 |
# $deltadays is a DateTime::Duration object |
1982 |
# $deltadays is a DateTime::Duration object |
1983 |
my $deltadays = $calendar->days_between( $dt_due, $dt_today ); |
1983 |
my $deltadays = $calendar->days_between( $dt_due, $dt_today ); |
1984 |
|
1984 |
|
1985 |
my $circcontrol = C4::Context::preference('CircControl'); |
1985 |
my $circcontrol = C4::Context->preference('CircControl'); |
1986 |
my $issuingrule = |
1986 |
my $issuingrule = |
1987 |
GetIssuingRule( $borrower->{categorycode}, $item->{itype}, $branchcode ); |
1987 |
GetIssuingRule( $borrower->{categorycode}, $item->{itype}, $branchcode ); |
1988 |
my $finedays = $issuingrule->{finedays}; |
1988 |
my $finedays = $issuingrule->{finedays}; |
1989 |
- |
|
|