From 49adb6d68e5b453ffc1ee80cd2758e775b48922c Mon Sep 17 00:00:00 2001 From: Kyle M Hall Date: Wed, 24 Feb 2016 15:05:01 +0000 Subject: [PATCH] Bug 15899 - Remove C4::Accounts::recordpayment Test Plan: 1) Apply this patch 2) prove t/db_dependent/Accounts.t 3) git grep recordpayment should show no calls to the recordpayment sub --- C4/Accounts.pm | 27 --------------------------- 1 file changed, 27 deletions(-) diff --git a/C4/Accounts.pm b/C4/Accounts.pm index 1304e15..7f68249 100644 --- a/C4/Accounts.pm +++ b/C4/Accounts.pm @@ -70,33 +70,6 @@ patron. =head1 FUNCTIONS -=head2 recordpayment - - &recordpayment($borrowernumber, $payment, $sip_paytype, $note); - -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<$sip_paytype> is an optional flag to indicate this -payment was made over a SIP2 interface, rather than the staff client. The -value passed is the SIP2 payment type value (message 37, characters 21-22) - -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 { - - #here we update the account lines - my ( $borrowernumber, $data, $sip_paytype, $payment_note ) = @_; - - return Koha::Account->new( { patron_id => $borrowernumber } ) - ->pay( { amount => $data, sip => $sip_paytype, note => $payment_note } ); -} - =head2 makepayment &makepayment($accountlines_id, $borrowernumber, $acctnumber, $amount, $branchcode); -- 2.1.4