From: Kyle M Hall <kyle@bywatersolutions.com>
Date: Mon, 5 Mar 2012 20:29:44 +0000 (-0500)
Subject: Bug 7597 - Part 4 - Change C4::Acounts::WriteOff to WriteOffFee
X-Git-Url: http://git.rot13.org/?a=commitdiff_plain;h=c5abb58f7c9e4cfa01829dd2f388b14784b0141f;p=koha.git

Bug 7597 - Part 4 - Change C4::Acounts::WriteOff to WriteOffFee

Signed-off-by: Nicole C. Engard <nengard@bywatersolutions.com>
---

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 3aecbe6bd5..88b296d6fd 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 );
         }
     }