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 4b49064..17db191 100644 (file)
--- 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 (executable)
--- 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 );
         }
     }