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

(-)a/C4/Accounts.pm (-28 lines)
Lines 70-102 patron. Link Here
70
70
71
=head1 FUNCTIONS
71
=head1 FUNCTIONS
72
72
73
=head2 recordpayment
74
75
  &recordpayment($borrowernumber, $payment, $sip_paytype, $note);
76
77
Record payment by a patron. C<$borrowernumber> is the patron's
78
borrower number. C<$payment> is a floating-point number, giving the
79
amount that was paid. C<$sip_paytype> is an optional flag to indicate this
80
payment was made over a SIP2 interface, rather than the staff client. The
81
value passed is the SIP2 payment type value (message 37, characters 21-22)
82
83
Amounts owed are paid off oldest first. That is, if the patron has a
84
$1 fine from Feb. 1, another $1 fine from Mar. 1, and makes a payment
85
of $1.50, then the oldest fine will be paid off in full, and $0.50
86
will be credited to the next one.
87
88
=cut
89
90
#'
91
sub recordpayment {
92
93
    #here we update the account lines
94
    my ( $borrowernumber, $data, $sip_paytype, $payment_note ) = @_;
95
96
    return Koha::Account->new( { patron_id => $borrowernumber } )
97
      ->pay( { amount => $data, sip => $sip_paytype, note => $payment_note } );
98
}
99
100
=head2 makepayment
73
=head2 makepayment
101
74
102
  &makepayment($accountlines_id, $borrowernumber, $acctnumber, $amount, $branchcode);
75
  &makepayment($accountlines_id, $borrowernumber, $acctnumber, $amount, $branchcode);
103
- 

Return to bug 15899