|
Lines 169-175
sub makepayment {
Link Here
|
| 169 |
my $data = $sth->fetchrow_hashref; |
169 |
my $data = $sth->fetchrow_hashref; |
| 170 |
$sth->finish; |
170 |
$sth->finish; |
| 171 |
|
171 |
|
| 172 |
my $sth = $dbh->prepare("UPDATE accountlines |
172 |
$sth = $dbh->prepare("UPDATE accountlines |
| 173 |
SET amountoutstanding = 0 |
173 |
SET amountoutstanding = 0 |
| 174 |
WHERE borrowernumber = ? |
174 |
WHERE borrowernumber = ? |
| 175 |
AND accountno = ?"); |
175 |
AND accountno = ?"); |
|
Lines 185-191
sub makepayment {
Link Here
|
| 185 |
|
185 |
|
| 186 |
# create new line |
186 |
# create new line |
| 187 |
my $payment = 0 - $amount; |
187 |
my $payment = 0 - $amount; |
| 188 |
my $sth = $dbh->prepare("INSERT INTO accountlines |
188 |
$sth = $dbh->prepare("INSERT INTO accountlines |
| 189 |
(borrowernumber, accountno, date, amount, |
189 |
(borrowernumber, accountno, date, amount, |
| 190 |
description, accounttype, amountoutstanding) |
190 |
description, accounttype, amountoutstanding) |
| 191 |
VALUES (?,?,now(),?,?,'Pay',0)"); |
191 |
VALUES (?,?,now(),?,?,'Pay',0)"); |
| 192 |
- |
|
|