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

(-)a/C4/Circulation.pm (-14 / +16 lines)
Lines 4468-4474 sub LostItem { Link Here
4468
                        borrowernumber => $borrowernumber,
4468
                        borrowernumber => $borrowernumber,
4469
                    }
4469
                    }
4470
                )->next;
4470
                )->next;
4471
                $library_id = branch_for_fee_context(
4471
                $library_id = C4::Overdues::branch_for_fee_context(
4472
                    fee_type => 'LOST',
4472
                    fee_type => 'LOST',
4473
                    patron   => $patron,
4473
                    patron   => $patron,
4474
                    item     => $item_obj,
4474
                    item     => $item_obj,
Lines 4476-4494 sub LostItem { Link Here
4476
                );
4476
                );
4477
            }
4477
            }
4478
4478
4479
            Koha::Account->new( { patron_id => $borrowernumber } )->add_debit(
4479
            my $amount = 0 + ( $issues->{replacementprice} // 0 );
4480
                {
4481
                    amount      => $issues->{'replacementprice'} + 0,
4482
                    type        => 'LOST',
4483
                    description => $desc,
4484
                    interface   => $interface,
4485
                    library_id  => $library_id,
4486
                    item_id     => $itemnumber,
4487
                    ( $issues->{issue_id} ? ( issue_id => $issues->{issue_id} ) : () ),
4488
                }
4489
            );
4490
        }
4491
4480
4481
            if ( $amount > 0 ) {
4482
                Koha::Account->new( { patron_id => $borrowernumber } )->add_debit(
4483
                    {
4484
                        amount      => $amount,
4485
                        type        => 'LOST',
4486
                        description => $desc,
4487
                        interface   => $interface,
4488
                        library_id  => $library_id,
4489
                        item_id     => $itemnumber,
4490
                        ( $issues->{issue_id} ? ( issue_id => $issues->{issue_id} ) : () ),
4491
                    }
4492
                );
4493
            }
4494
        }
4492
        MarkIssueReturned( $borrowernumber, $itemnumber, undef, $patron->privacy, $params ) if $mark_returned;
4495
        MarkIssueReturned( $borrowernumber, $itemnumber, undef, $patron->privacy, $params ) if $mark_returned;
4493
    }
4496
    }
4494
4497
4495
- 

Return to bug 35612