Lines 685-691
will be credited to the next one.
Link Here
|
685 |
=cut |
685 |
=cut |
686 |
|
686 |
|
687 |
sub recordpayment_selectaccts { |
687 |
sub recordpayment_selectaccts { |
688 |
my ( $borrowernumber, $amount, $accts ) = @_; |
688 |
my ( $borrowernumber, $amount, $accts, $note ) = @_; |
689 |
|
689 |
|
690 |
my $dbh = C4::Context->dbh; |
690 |
my $dbh = C4::Context->dbh; |
691 |
my $newamtos = 0; |
691 |
my $newamtos = 0; |
Lines 728-736
sub recordpayment_selectaccts {
Link Here
|
728 |
|
728 |
|
729 |
# create new line |
729 |
# create new line |
730 |
$sql = 'INSERT INTO accountlines ' . |
730 |
$sql = 'INSERT INTO accountlines ' . |
731 |
'(borrowernumber, accountno,date,amount,description,accounttype,amountoutstanding,manager_id) ' . |
731 |
'(borrowernumber, accountno,date,amount,description,accounttype,amountoutstanding,manager_id,note) ' . |
732 |
q|VALUES (?,?,now(),?,'Payment,thanks','Pay',?,?)|; |
732 |
q|VALUES (?,?,now(),?,'Payment,thanks','Pay',?,?,?)|; |
733 |
$dbh->do($sql,{},$borrowernumber, $nextaccntno, 0 - $amount, 0 - $amountleft, $manager_id ); |
733 |
$dbh->do($sql,{},$borrowernumber, $nextaccntno, 0 - $amount, 0 - $amountleft, $manager_id, $note ); |
734 |
UpdateStats( $branch, 'payment', $amount, '', '', '', $borrowernumber, $nextaccntno ); |
734 |
UpdateStats( $branch, 'payment', $amount, '', '', '', $borrowernumber, $nextaccntno ); |
735 |
return; |
735 |
return; |
736 |
} |
736 |
} |