summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authoreinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2006-11-10 23:13:55 +0000
committereinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2006-11-10 23:13:55 +0000
commitccd3513b0bb16060383fbe30bdd35750bec8e297 (patch)
treeafc63ebe430c717a82b741ec1476ae681d296da8
parent97cd222e1c0197829522ed32c7650e63a9ebe3fc (diff)
Fixed foreign exchange defaults handling in IS.pm
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@507 4979c152-3d1c-0410-bac9-87ea11338e46
-rwxr-xr-xLedgerSMB/AM.pm2
-rwxr-xr-xLedgerSMB/IS.pm4
2 files changed, 2 insertions, 4 deletions
diff --git a/LedgerSMB/AM.pm b/LedgerSMB/AM.pm
index a066f9af..351b0ae0 100755
--- a/LedgerSMB/AM.pm
+++ b/LedgerSMB/AM.pm
@@ -1390,10 +1390,8 @@ sub save_defaults {
if ($translation{$_}){
$val = $form->{$translation{$_}};
- print STDERR $val;
}
if ($_ =~ /accno/){
- print STDERR "Account $_: $translation{$_}";
$sth_accno->execute($val, $_)
|| $form->dberror("Saving $_");
} else {
diff --git a/LedgerSMB/IS.pm b/LedgerSMB/IS.pm
index 05b4dd06..dd293759 100755
--- a/LedgerSMB/IS.pm
+++ b/LedgerSMB/IS.pm
@@ -820,10 +820,10 @@ sub post_invoice {
$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);