|
Lines 762-768
sub makepartialpayment {
Link Here
|
| 762 |
. 'description, accounttype, amountoutstanding, itemnumber, manager_id) ' |
762 |
. 'description, accounttype, amountoutstanding, itemnumber, manager_id) ' |
| 763 |
. ' VALUES (?, ?, now(), ?, ?, ?, 0, ?, ?)'; |
763 |
. ' VALUES (?, ?, now(), ?, ?, ?, 0, ?, ?)'; |
| 764 |
|
764 |
|
| 765 |
$dbh->do( $insert, undef, $borrowernumber, $nextaccntno, $amount, |
765 |
$dbh->do( $insert, undef, $borrowernumber, $nextaccntno, 0 - $amount, |
| 766 |
"Payment, thanks - $user", 'Pay', $data->{'itemnumber'}, $manager_id); |
766 |
"Payment, thanks - $user", 'Pay', $data->{'itemnumber'}, $manager_id); |
| 767 |
|
767 |
|
| 768 |
UpdateStats( $user, 'payment', $amount, '', '', '', $borrowernumber, $accountno ); |
768 |
UpdateStats( $user, 'payment', $amount, '', '', '', $borrowernumber, $accountno ); |
| 769 |
- |
|
|