@@ -, +, @@ --- C4/Accounts.pm | 42 ------------------------------------------ t/db_dependent/Accounts.t | 1 - 2 files changed, 43 deletions(-) --- a/C4/Accounts.pm +++ a/C4/Accounts.pm @@ -45,7 +45,6 @@ BEGIN { &getrefunds &chargelostitem &ReversePayment - &recordpayment_selectaccts &WriteOffFee &purge_zero_balance_fees ); @@ -406,47 +405,6 @@ sub ReversePayment { } -=head2 recordpayment_selectaccts - - recordpayment_selectaccts($borrowernumber, $payment,$accts); - -Record payment by a patron. C<$borrowernumber> is the patron's -borrower number. C<$payment> is a floating-point number, giving the -amount that was paid. C<$accts> is an array ref to a list of -accountnos which the payment can be recorded against - -Amounts owed are paid off oldest first. That is, if the patron has a -$1 fine from Feb. 1, another $1 fine from Mar. 1, and makes a payment -of $1.50, then the oldest fine will be paid off in full, and $0.50 -will be credited to the next one. - -=cut - -sub recordpayment_selectaccts { - my ( $borrowernumber, $amount, $accts, $note ) = @_; - - my @lines = Koha::Account::Lines->search( - { - borrowernumber => $borrowernumber, - amountoutstanding => { '<>' => 0 }, - accountno => { 'IN' => $accts }, - }, - { order_by => 'date' } - ); - - return Koha::Account->new( - { - patron_id => $borrowernumber, - } - )->pay( - { - amount => $amount, - lines => \@lines, - note => $note, - } - ); -} - =head2 WriteOffFee WriteOffFee( $borrowernumber, $accountline_id, $itemnum, $accounttype, $amount, $branch, $payment_note ); --- a/t/db_dependent/Accounts.t +++ a/t/db_dependent/Accounts.t @@ -45,7 +45,6 @@ can_ok( 'C4::Accounts', getcredits getrefunds ReversePayment - recordpayment_selectaccts WriteOffFee purge_zero_balance_fees ) ); --