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

[..hidden..]

Revision: 507
          http://svn.sourceforge.net/ledger-smb/?rev=507&view=rev
Author:   einhverfr
Date:     2006-11-10 15:13:55 -0800 (Fri, 10 Nov 2006)

Log Message:
-----------
Fixed foreign exchange defaults handling in IS.pm

Modified Paths:
--------------
    trunk/LedgerSMB/AM.pm
    trunk/LedgerSMB/IS.pm

Modified: trunk/LedgerSMB/AM.pm
===================================================================
--- trunk/LedgerSMB/AM.pm	2006-11-10 21:43:59 UTC (rev 506)
+++ trunk/LedgerSMB/AM.pm	2006-11-10 23:13:55 UTC (rev 507)
@@ -1390,10 +1390,8 @@
 
 		if ($translation{$_}){
 			$val = $form->{$translation{$_}};
-			print STDERR $val;
 		} 
 		if ($_ =~ /accno/){
-			print STDERR "Account $_: $translation{$_}";
 			$sth_accno->execute($val, $_) 
 				|| $form->dberror("Saving $_");
 		} else {

Modified: trunk/LedgerSMB/IS.pm
===================================================================
--- trunk/LedgerSMB/IS.pm	2006-11-10 21:43:59 UTC (rev 506)
+++ trunk/LedgerSMB/IS.pm	2006-11-10 23:13:55 UTC (rev 507)
@@ -820,10 +820,10 @@
 
 	$query = qq|
 		SELECT (SELECT value FROM defaults 
-		         WHERE setting_key = fxgain_accno_id) 
+		         WHERE setting_key = 'fxgain_accno_id') 
 		       AS fxgain_accno_id, 
 		       (SELECT value FROM defaults
-		         WHERE setting_key = fxloss_accno_id) 
+		         WHERE setting_key = 'fxloss_accno_id') 
 		       AS fxloss_accno_id|;
 	my ($fxgain_accno_id, $fxloss_accno_id) = $dbh->selectrow_array($query);
 


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