View | Details | Raw Unified | Return to bug 24117
Collapse All | Expand All

(-)a/C4/Circulation.pm (-4 / +3 lines)
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
- 

Return to bug 24117