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

(-)a/C4/Circulation.pm (-5 / +3 lines)
Lines 3651-3660 sub LostItem{ Link Here
3651
    if ( my $borrowernumber = $issues->{borrowernumber} ){
3651
    if ( my $borrowernumber = $issues->{borrowernumber} ){
3652
        my $patron = Koha::Patrons->find( $borrowernumber );
3652
        my $patron = Koha::Patrons->find( $borrowernumber );
3653
3653
3654
        if (C4::Context->preference('WhenLostForgiveFine')){
3654
        my $fix = _FixOverduesOnReturn($borrowernumber, $itemnumber, C4::Context->preference('WhenLostForgiveFine'), 0); # 1, 0 = exemptfine, no-dropbox
3655
            my $fix = _FixOverduesOnReturn($borrowernumber, $itemnumber, 1, 0); # 1, 0 = exemptfine, no-dropbox
3655
        defined($fix) or warn "_FixOverduesOnReturn($borrowernumber, $itemnumber...) failed!";  # zero is OK, check defined
3656
            defined($fix) or warn "_FixOverduesOnReturn($borrowernumber, $itemnumber...) failed!";  # zero is OK, check defined
3656
3657
        }
3658
        if (C4::Context->preference('WhenLostChargeReplacementFee')){
3657
        if (C4::Context->preference('WhenLostChargeReplacementFee')){
3659
            C4::Accounts::chargelostitem($borrowernumber, $itemnumber, $issues->{'replacementprice'}, "Lost Item $issues->{'title'} $issues->{'barcode'}");
3658
            C4::Accounts::chargelostitem($borrowernumber, $itemnumber, $issues->{'replacementprice'}, "Lost Item $issues->{'title'} $issues->{'barcode'}");
3660
            #FIXME : Should probably have a way to distinguish this from an item that really was returned.
3659
            #FIXME : Should probably have a way to distinguish this from an item that really was returned.
3661
- 

Return to bug 20598