From 1d8a6b5e5ca27c916c6b2444f6ffa0e8eeff3c17 Mon Sep 17 00:00:00 2001 From: Kyle M Hall Date: Mon, 5 Mar 2012 15:29:44 -0500 Subject: [PATCH] Bug 7597 - Part 4 - Change C4::Acounts::WriteOff to WriteOffFee Signed-off-by: Nicole C. Engard Signed-off-by: Jared Camins-Esakov --- C4/Accounts.pm | 4 ++-- members/pay.pl | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/C4/Accounts.pm b/C4/Accounts.pm index 4b49064d3b..17db19125c 100644 --- a/C4/Accounts.pm +++ b/C4/Accounts.pm @@ -46,7 +46,7 @@ BEGIN { &ReversePayment &makepartialpayment &recordpayment_selectaccts - &WriteOff + &WriteOffFee ); } @@ -778,7 +778,7 @@ C<$branch> is the branchcode of the library where the writeoff occurred. =cut -sub WriteOff { +sub WriteOffFee { my ( $borrowernumber, $accountnum, $itemnum, $accounttype, $amount, $branch ) = @_; my $branch ||= C4::Context->userenv->{branch}; my $manager_id = 0; diff --git a/members/pay.pl b/members/pay.pl index 04ba19c01a..75c9371864 100755 --- a/members/pay.pl +++ b/members/pay.pl @@ -87,7 +87,7 @@ if ($writeoff_all) { my $itemno = $input->param('itemnumber'); my $account_type = $input->param('accounttype'); my $amount = $input->param('amountoutstanding'); - WriteOff( $borrowernumber, $accountno, $itemno, $account_type, $amount, $branch ); + WriteOffFee( $borrowernumber, $accountno, $itemno, $account_type, $amount, $branch ); } for (@names) { @@ -182,7 +182,7 @@ sub writeoff_all { my $itemno = $input->param("itemnumber$value"); my $amount = $input->param("amountoutstanding$value"); my $accountno = $input->param("accountno$value"); - WriteOff( $borrowernumber, $accountno, $itemno, $accounttype, $amount, $branch ); + WriteOffFee( $borrowernumber, $accountno, $itemno, $accounttype, $amount, $branch ); } } -- 2.39.5