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

(-)a/C4/Circulation.pm (-10 / +11 lines)
Lines 2012-2019 sub AddReturn { Link Here
2012
        $item->holdingbranch($branch)->store;
2012
        $item->holdingbranch($branch)->store;
2013
    }
2013
    }
2014
2014
2015
    my $item_was_lost = $item->itemlost;
2015
    my $leave_item_lost = C4::Context->preference("BlockReturnOfLostItems") ? 1 : 0;
2016
    my $leave_item_lost = C4::Context->preference("BlockReturnOfLostItems") ? 1 : 0;
2016
    ModDateLastSeen( $item->itemnumber, $leave_item_lost );
2017
    ModDateLastSeen( $item->itemnumber, $leave_item_lost ); # will unset itemlost if needed
2018
2019
    # fix up the accounts.....
2020
    if ( $item_was_lost ) {
2021
        $messages->{'WasLost'} = 1;
2022
        unless ( C4::Context->preference("BlockReturnOfLostItems") ) {
2023
            #my $refunded = Koha::Account::Lines->search{(itemnumber => $item->itemnumber, type => 'LOST_FOUND', # FIXME which other parameters to know it has been refunded?
2024
            $messages->{'LostItemFeeRefunded'} = 1;
2025
        }
2026
    }
2017
2027
2018
    # check if we have a transfer for this document
2028
    # check if we have a transfer for this document
2019
    my ($datesent,$frombranch,$tobranch) = GetTransfers( $item->itemnumber );
2029
    my ($datesent,$frombranch,$tobranch) = GetTransfers( $item->itemnumber );
Lines 2035-2048 sub AddReturn { Link Here
2035
        }
2045
        }
2036
    }
2046
    }
2037
2047
2038
    # fix up the accounts.....
2039
    if ( $item->itemlost ) {
2040
        $messages->{'WasLost'} = 1;
2041
        unless ( C4::Context->preference("BlockReturnOfLostItems") ) {
2042
            $messages->{'LostItemFeeRefunded'} = $refunded;
2043
        }
2044
    }
2045
2046
    # fix up the overdues in accounts...
2048
    # fix up the overdues in accounts...
2047
    if ($borrowernumber) {
2049
    if ($borrowernumber) {
2048
        my $fix = _FixOverduesOnReturn( $borrowernumber, $item->itemnumber, $exemptfine, 'RETURNED' );
2050
        my $fix = _FixOverduesOnReturn( $borrowernumber, $item->itemnumber, $exemptfine, 'RETURNED' );
2049
- 

Return to bug 18501