From 0bc42aa370f95859a3cd0d15b791c2efc549113f Mon Sep 17 00:00:00 2001
From: Kyle M Hall <kyle@bywatersolutions.com>
Date: Mon, 5 Mar 2012 15:29:44 -0500
Subject: [PATCH] Bug 7597 - Part 4 - Change C4::Acounts::WriteOff to WriteOffFee

---
 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 28bd56b..0372d17 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 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