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

(-)a/C4/Accounts.pm (-3 / +2 lines)
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
- 

Return to bug 6503