From 60a8122d1593206e6588e61d260f19b96c0e573f Mon Sep 17 00:00:00 2001
From: tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Tue, 14 Nov 2006 17:24:29 +0000
Subject: Fixing var used to prepare a query

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@594 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB/IR.pm | 2 +-
 LedgerSMB/RP.pm | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'LedgerSMB')

diff --git a/LedgerSMB/IR.pm b/LedgerSMB/IR.pm
index e47093bc..01bb05ca 100755
--- a/LedgerSMB/IR.pm
+++ b/LedgerSMB/IR.pm
@@ -595,7 +595,7 @@ sub post_invoice {
 					             WHERE accno = ?),
 		    			             ?, ?)|;
 
-				$sth = $dbh->$dbh->prepare($query);
+				$sth = $dbh->prepare($query);
 				$sth->execute(
 					$form->{id}, $form->{AP}, $amount, 
 					$form->{"datepaid_$i"}
diff --git a/LedgerSMB/RP.pm b/LedgerSMB/RP.pm
index 8be97f17..dbb3294b 100755
--- a/LedgerSMB/RP.pm
+++ b/LedgerSMB/RP.pm
@@ -1419,7 +1419,7 @@ sub aging {
 	my $dbh = $form->{dbh};
 	my $invoice = ($form->{arap} eq 'ar') ? 'is' : 'ir';
 
-	my $query = qq|SELECT value FROM defaults WHERE settings_key = 'curr'|;
+	my $query = qq|SELECT value FROM defaults WHERE setting_key = 'curr'|;
 	($form->{currencies}) = $dbh->selectrow_array($query);
   
 	($null, $form->{todate}) 
-- 
cgit v1.2.3