SF.net SVN: ledger-smb: [594] trunk/LedgerSMB

[..hidden..]

Revision: 594
          http://svn.sourceforge.net/ledger-smb/?rev=594&view=rev
Author:   tetragon
Date:     2006-11-14 09:24:29 -0800 (Tue, 14 Nov 2006)

Log Message:
-----------
Fixing var used to prepare a query

Modified Paths:
--------------
    trunk/LedgerSMB/IR.pm
    trunk/LedgerSMB/RP.pm

Modified: trunk/LedgerSMB/IR.pm
===================================================================
--- trunk/LedgerSMB/IR.pm	2006-11-14 17:08:19 UTC (rev 593)
+++ trunk/LedgerSMB/IR.pm	2006-11-14 17:24:29 UTC (rev 594)
@@ -595,7 +595,7 @@
 					             WHERE accno = ?),
 		    			             ?, ?)|;
 
-				$sth = $dbh->$dbh->prepare($query);
+				$sth = $dbh->prepare($query);
 				$sth->execute(
 					$form->{id}, $form->{AP}, $amount, 
 					$form->{"datepaid_$i"}

Modified: trunk/LedgerSMB/RP.pm
===================================================================
--- trunk/LedgerSMB/RP.pm	2006-11-14 17:08:19 UTC (rev 593)
+++ trunk/LedgerSMB/RP.pm	2006-11-14 17:24:29 UTC (rev 594)
@@ -1419,7 +1419,7 @@
 	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}) 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.