Lines 789-795
will be credited to the next one.
Link Here
|
789 |
=cut |
789 |
=cut |
790 |
|
790 |
|
791 |
sub recordpayment_selectaccts { |
791 |
sub recordpayment_selectaccts { |
792 |
my ( $borrowernumber, $amount, $accts ) = @_; |
792 |
my ( $borrowernumber, $amount, $accts, $note ) = @_; |
793 |
|
793 |
|
794 |
my $dbh = C4::Context->dbh; |
794 |
my $dbh = C4::Context->dbh; |
795 |
my $newamtos = 0; |
795 |
my $newamtos = 0; |
Lines 849-857
sub recordpayment_selectaccts {
Link Here
|
849 |
|
849 |
|
850 |
# create new line |
850 |
# create new line |
851 |
$sql = 'INSERT INTO accountlines ' . |
851 |
$sql = 'INSERT INTO accountlines ' . |
852 |
'(borrowernumber, accountno,date,amount,description,accounttype,amountoutstanding,manager_id) ' . |
852 |
'(borrowernumber, accountno,date,amount,description,accounttype,amountoutstanding,manager_id,note) ' . |
853 |
q|VALUES (?,?,now(),?,'Payment,thanks','Pay',?,?)|; |
853 |
q|VALUES (?,?,now(),?,'Payment,thanks','Pay',?,?,?)|; |
854 |
$dbh->do($sql,{},$borrowernumber, $nextaccntno, 0 - $amount, 0 - $amountleft, $manager_id ); |
854 |
$dbh->do($sql,{},$borrowernumber, $nextaccntno, 0 - $amount, 0 - $amountleft, $manager_id, $note ); |
855 |
UpdateStats( $branch, 'payment', $amount, '', '', '', $borrowernumber, $nextaccntno ); |
855 |
UpdateStats( $branch, 'payment', $amount, '', '', '', $borrowernumber, $nextaccntno ); |
856 |
|
856 |
|
857 |
if ( C4::Context->preference("FinesLog") ) { |
857 |
if ( C4::Context->preference("FinesLog") ) { |