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

2 files changed, 2 insertions, 2 deletions

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})