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

(-)a/C4/Circulation.pm (-5 / +3 lines)
Lines 3689-3698 sub LostItem{ Link Here
3689
    if ( my $borrowernumber = $issues->{borrowernumber} ){
3689
    if ( my $borrowernumber = $issues->{borrowernumber} ){
3690
        my $patron = Koha::Patrons->find( $borrowernumber );
3690
        my $patron = Koha::Patrons->find( $borrowernumber );
3691
3691
3692
        if (C4::Context->preference('WhenLostForgiveFine')){
3692
        my $fix = _FixOverduesOnReturn($borrowernumber, $itemnumber, C4::Context->preference('WhenLostForgiveFine'), 0); # 1, 0 = exemptfine, no-dropbox
3693
            my $fix = _FixOverduesOnReturn($borrowernumber, $itemnumber, 1, 0); # 1, 0 = exemptfine, no-dropbox
3693
        defined($fix) or warn "_FixOverduesOnReturn($borrowernumber, $itemnumber...) failed!";  # zero is OK, check defined
3694
            defined($fix) or warn "_FixOverduesOnReturn($borrowernumber, $itemnumber...) failed!";  # zero is OK, check defined
3694
3695
        }
3696
        if (C4::Context->preference('WhenLostChargeReplacementFee')){
3695
        if (C4::Context->preference('WhenLostChargeReplacementFee')){
3697
            C4::Accounts::chargelostitem($borrowernumber, $itemnumber, $issues->{'replacementprice'}, "Lost Item $issues->{'title'} $issues->{'barcode'}");
3696
            C4::Accounts::chargelostitem($borrowernumber, $itemnumber, $issues->{'replacementprice'}, "Lost Item $issues->{'title'} $issues->{'barcode'}");
3698
            #FIXME : Should probably have a way to distinguish this from an item that really was returned.
3697
            #FIXME : Should probably have a way to distinguish this from an item that really was returned.
3699
- 

Return to bug 20598