Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

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

Browse source 
Signed-off-by: Nicole C. Engard <nengard@bywatersolutions.com>
This commit is contained in:
Kyle Hall 2012-03-05 15:29:44 -05:00 committed by Paul Poulain
parent 360e2f82e7
commit c5abb58f7c
2 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
C4/Accounts.pm
View file

@ -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;

4
members/pay.pl
View file

@ -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 );
}
}