From 6c5c1c36fa682244c355f6c06808ec715f0a2baa Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Thu, 26 Apr 2007 20:28:38 +0000
Subject: Merging bugfixes from current branches/1.2

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1105 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB/AA.pm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'LedgerSMB/AA.pm')

diff --git a/LedgerSMB/AA.pm b/LedgerSMB/AA.pm
index e6d7b573..dde35958 100644
--- a/LedgerSMB/AA.pm
+++ b/LedgerSMB/AA.pm
@@ -394,7 +394,7 @@ sub post_transaction {
 			INSERT INTO acc_trans 
 			            (trans_id, chart_id, amount, transdate)
 			     VALUES (?, (SELECT id FROM chart
-			                  WHERE accno = '?'), 
+			                  WHERE accno = ?), 
 			                  ?, ?)|;
         @queryargs =
           ( $form->{id}, $accno, $invamount * -1 * $ml, $form->{transdate} );
@@ -455,7 +455,7 @@ sub post_transaction {
 					            ?, ?)|;
 
                 @queryargs = (
-                    $form->{id},
+                    $form->{id}, $accno,
                     $paid{amount}{$i} * $ml,
                     $form->{"datepaid_$i"}
                 );
@@ -480,7 +480,7 @@ sub post_transaction {
 					            cleared)
 					     VALUES (?, (SELECT id FROM chart
 						          WHERE accno = ?),
-					            ? * -1 * $ml, ?, ?, ?, ?)|;
+					            ?, ?, ?, ?, ?)|;
 
                 @queryargs = (
                     $form->{id},          $accno,
@@ -545,7 +545,8 @@ sub post_transaction {
 						                   FROM chart
 						                  WHERE accno 
 						                        = ?),
-						            ?, ?, '1', ?, ?)|;
+						            ?, ?, 
+						            '1', ?, ?)|;
 
                     @queryargs = (
                         $form->{id}, $accno,
@@ -870,7 +871,6 @@ sub transactions {
 
     $query .= "WHERE $where
 			ORDER BY $sortorder";
-
     my $sth = $dbh->prepare($query);
     $sth->execute(@paidargs) || $form->dberror($query);
 
-- 
cgit v1.2.3