From a39b6d9cc9c93a4064cc4d2cecf09ced99c98726 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 --- C4/Accounts.pm | 2 +- members/pay.pl | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/C4/Accounts.pm b/C4/Accounts.pm index 28bd56b..a5232dc 100644 --- a/C4/Accounts.pm +++ b/C4/Accounts.pm @@ -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 3aecbe6..88b296d 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) { @@ -184,7 +184,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 ); } } -- 1.7.2.5