Lines 2039-2045
sub AddReturn {
Link Here
|
2039 |
|
2039 |
|
2040 |
if ( $issue and $issue->is_overdue ) { |
2040 |
if ( $issue and $issue->is_overdue ) { |
2041 |
# fix fine days |
2041 |
# fix fine days |
2042 |
my ($debardate,$reminder) = _debar_user_on_return( $patron_unblessed, $item_unblessed, dt_from_string($issue->date_due), $return_date ); |
2042 |
my ($debardate,$reminder) = _debar_user_on_return( $patron_unblessed, $item_unblessed, $item->effective_itemtype, dt_from_string($issue->date_due), $return_date ); |
2043 |
if ($reminder){ |
2043 |
if ($reminder){ |
2044 |
$messages->{'PrevDebarred'} = $debardate; |
2044 |
$messages->{'PrevDebarred'} = $debardate; |
2045 |
} else { |
2045 |
} else { |
Lines 2238-2244
Should only be called for overdue returns
Link Here
|
2238 |
=cut |
2238 |
=cut |
2239 |
|
2239 |
|
2240 |
sub _debar_user_on_return { |
2240 |
sub _debar_user_on_return { |
2241 |
my ( $borrower, $item, $dt_due, $return_date ) = @_; |
2241 |
my ( $borrower, $item, $itemtype, $dt_due, $return_date ) = @_; |
2242 |
|
2242 |
|
2243 |
my $branchcode = _GetCircControlBranch( $item, $borrower ); |
2243 |
my $branchcode = _GetCircControlBranch( $item, $borrower ); |
2244 |
$return_date //= dt_from_string(); |
2244 |
$return_date //= dt_from_string(); |
Lines 2246-2252
sub _debar_user_on_return {
Link Here
|
2246 |
my $circcontrol = C4::Context->preference('CircControl'); |
2246 |
my $circcontrol = C4::Context->preference('CircControl'); |
2247 |
my $issuing_rule = Koha::IssuingRules->get_effective_issuing_rule( |
2247 |
my $issuing_rule = Koha::IssuingRules->get_effective_issuing_rule( |
2248 |
{ categorycode => $borrower->{categorycode}, |
2248 |
{ categorycode => $borrower->{categorycode}, |
2249 |
itemtype => $item->{itype}, |
2249 |
itemtype => $itemtype, |
2250 |
branchcode => $branchcode |
2250 |
branchcode => $branchcode |
2251 |
} |
2251 |
} |
2252 |
); |
2252 |
); |
2253 |
- |
|
|