@@ -, +, @@ --- C4/Accounts.pm | 4 ++-- members/pay.pl | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) --- a/C4/Accounts.pm +++ a/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; --- a/members/pay.pl +++ a/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 ); } } --