From 833df96b76993f173b0b82146719584e74307aed Mon Sep 17 00:00:00 2001 From: tetragon Date: Tue, 14 Nov 2006 17:34:00 +0000 Subject: Some fixes for posting sales invoices git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@595 4979c152-3d1c-0410-bac9-87ea11338e46 --- LedgerSMB/IS.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'LedgerSMB/IS.pm') diff --git a/LedgerSMB/IS.pm b/LedgerSMB/IS.pm index 39bcfe7c..e7e22cd8 100755 --- a/LedgerSMB/IS.pm +++ b/LedgerSMB/IS.pm @@ -1269,7 +1269,7 @@ sub post_invoice { VALUES (?, (SELECT id FROM chart WHERE accno = ?), ?, ?)|; - $sth = $dbh->prpare($query); + $sth = $dbh->prepare($query); $sth->execute( $form->{id}, $form->{AR}, $amount, $form->{"datepaid_$i"}) @@ -1286,12 +1286,12 @@ sub post_invoice { INSERT INTO acc_trans (trans_id, chart_id, amount, transdate, source, memo, cleared) - VALUES ($?, (SELECT id FROM chart + VALUES (?, (SELECT id FROM chart WHERE accno = ?), ?, ?, ?, ?, ?)|; $sth = $dbh->prepare($query); - $sth->prepare( + $sth->execute( $form->{id}, $accno, $amount, $form->{"datepaid_$i"}, $form->{"source_$i"}, $form->{"memo_$i"}, $cleared) -- cgit v1.2.3