Bug 7958 - Batch Item Delete Fails

[koha_gimpoz] / C4 / Accounts.pm

diff --git a/C4/Accounts.pm b/C4/Accounts.pm
index 4b49064..b7aef01 100644 (file)
--- a/C4/Accounts.pm
+++ b/C4/Accounts.pm
@@ -46,7 +46,7 @@ BEGIN {
                &ReversePayment
                 &makepartialpayment
                 &recordpayment_selectaccts
-                &WriteOff
+                &WriteOffFee
        );
 }
 
@@ -778,9 +778,9 @@ 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};
+    $branch ||= C4::Context->userenv->{branch};
     my $manager_id = 0;
     $manager_id = C4::Context->userenv->{'number'} if C4::Context->userenv;