View | Details | Raw Unified | Return to bug 7597
Collapse All | Expand All

(-)a/C4/Accounts.pm (-2 / +2 lines)
Lines 46-52 BEGIN { Link Here
46
		&ReversePayment
46
		&ReversePayment
47
                &makepartialpayment
47
                &makepartialpayment
48
                &recordpayment_selectaccts
48
                &recordpayment_selectaccts
49
                &WriteOff
49
                &WriteOffFee
50
	);
50
	);
51
}
51
}
52
52
Lines 778-784 C<$branch> is the branchcode of the library where the writeoff occurred. Link Here
778
778
779
=cut
779
=cut
780
780
781
sub WriteOff {
781
sub WriteOffFee {
782
    my ( $borrowernumber, $accountnum, $itemnum, $accounttype, $amount, $branch ) = @_;
782
    my ( $borrowernumber, $accountnum, $itemnum, $accounttype, $amount, $branch ) = @_;
783
    my $branch ||= C4::Context->userenv->{branch};
783
    my $branch ||= C4::Context->userenv->{branch};
784
    my $manager_id = 0;
784
    my $manager_id = 0;
(-)a/members/pay.pl (-3 / +2 lines)
Lines 87-93 if ($writeoff_all) { Link Here
87
    my $itemno       = $input->param('itemnumber');
87
    my $itemno       = $input->param('itemnumber');
88
    my $account_type = $input->param('accounttype');
88
    my $account_type = $input->param('accounttype');
89
    my $amount       = $input->param('amountoutstanding');
89
    my $amount       = $input->param('amountoutstanding');
90
    WriteOff( $borrowernumber, $accountno, $itemno, $account_type, $amount, $branch );
90
    WriteOffFee( $borrowernumber, $accountno, $itemno, $account_type, $amount, $branch );
91
}
91
}
92
92
93
for (@names) {
93
for (@names) {
Lines 184-190 sub writeoff_all { Link Here
184
            my $itemno    = $input->param("itemnumber$value");
184
            my $itemno    = $input->param("itemnumber$value");
185
            my $amount    = $input->param("amountoutstanding$value");
185
            my $amount    = $input->param("amountoutstanding$value");
186
            my $accountno = $input->param("accountno$value");
186
            my $accountno = $input->param("accountno$value");
187
            WriteOff( $borrowernumber, $accountno, $itemno, $accounttype, $amount, $branch );
187
            WriteOffFee( $borrowernumber, $accountno, $itemno, $accounttype, $amount, $branch );
188
        }
188
        }
189
    }
189
    }
190
190
191
- 

Return to bug 7597