From 363aabc827c18a389b1fc54f4c4d42bbf5130d61 Mon Sep 17 00:00:00 2001 From: einhverfr Date: Sat, 16 Feb 2008 21:44:17 +0000 Subject: Correcting all known casting issues relating to Pg 8.3 git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2070 4979c152-3d1c-0410-bac9-87ea11338e46 --- LedgerSMB/IC.pm | 6 +++--- LedgerSMB/IR.pm | 20 ++++++++++---------- LedgerSMB/RC.pm | 4 ++-- 3 files changed, 15 insertions(+), 15 deletions(-) (limited to 'LedgerSMB') diff --git a/LedgerSMB/IC.pm b/LedgerSMB/IC.pm index f20cabf0..9371229d 100644 --- a/LedgerSMB/IC.pm +++ b/LedgerSMB/IC.pm @@ -1904,11 +1904,11 @@ sub create_links { c3.accno AS expense_accno, c3.description AS expense_description FROM chart c1, chart c2, chart c3 - WHERE c1.id IN (SELECT value FROM defaults + WHERE c1.id IN (SELECT value::int FROM defaults WHERE setting_key = 'inventory_accno_id') - AND c2.id IN (SELECT value FROM defaults + AND c2.id IN (SELECT value::int FROM defaults WHERE setting_key = 'income_accno_id') - AND c3.id IN (SELECT value FROM defaults + AND c3.id IN (SELECT value::int FROM defaults WHERE setting_key = 'expense_accno_id')|; $sth = $dbh->prepare($query); diff --git a/LedgerSMB/IR.pm b/LedgerSMB/IR.pm index 249e52d7..e3e6aa2a 100644 --- a/LedgerSMB/IR.pm +++ b/LedgerSMB/IR.pm @@ -1031,31 +1031,31 @@ sub retrieve_invoice { # get default accounts and last invoice number $query = qq| SELECT (select c.accno FROM chart c - WHERE c.id = (SELECT value FROM defaults + WHERE c.id = (SELECT value::int FROM defaults WHERE setting_key = 'inventory_accno_id')) AS inventory_accno, (SELECT c.accno FROM chart c - WHERE c.id = (SELECT value FROM defaults + WHERE c.id = (SELECT value::int FROM defaults WHERE setting_key = 'income_accno_id')) AS income_accno, (SELECT c.accno FROM chart c - WHERE c.id = (SELECT value FROM defaults + WHERE c.id = (SELECT value::int FROM defaults WHERE setting_key = 'expense_accno_id')) AS expense_accno, (SELECT c.accno FROM chart c - WHERE c.id = (SELECT value FROM defaults + WHERE c.id = (SELECT value::int FROM defaults WHERE setting_key = 'fxgain_accno_id')) AS fxgain_accno, (SELECT c.accno FROM chart c - WHERE c.id = (SELECT value FROM defaults + WHERE c.id = (SELECT value::int FROM defaults WHERE setting_key = 'fxloss_accno_id')) AS fxloss_accno, @@ -1065,31 +1065,31 @@ sub retrieve_invoice { else { $query = qq| SELECT (select c.accno FROM chart c - WHERE c.id = (SELECT value FROM defaults + WHERE c.id = (SELECT value::int FROM defaults WHERE setting_key = 'inventory_accno_id')) AS inventory_accno, (SELECT c.accno FROM chart c - WHERE c.id = (SELECT value FROM defaults + WHERE c.id = (SELECT value::int FROM defaults WHERE setting_key = 'income_accno_id')) AS income_accno, (SELECT c.accno FROM chart c - WHERE c.id = (SELECT value FROM defaults + WHERE c.id = (SELECT value::int FROM defaults WHERE setting_key = 'expense_accno_id')) AS expense_accno, (SELECT c.accno FROM chart c - WHERE c.id = (SELECT value FROM defaults + WHERE c.id = (SELECT value::int FROM defaults WHERE setting_key = 'fxgain_accno_id')) AS fxgain_accno, (SELECT c.accno FROM chart c - WHERE c.id = (SELECT value FROM defaults + WHERE c.id = (SELECT value::int FROM defaults WHERE setting_key = 'fxloss_accno_id')) AS fxloss_accno, diff --git a/LedgerSMB/RC.pm b/LedgerSMB/RC.pm index 206565dd..9410dd7c 100644 --- a/LedgerSMB/RC.pm +++ b/LedgerSMB/RC.pm @@ -237,10 +237,10 @@ sub payment_transactions { if ( $form->{fx_transaction} ) { $fx_transaction = qq| AND NOT (ac.chart_id IN - (SELECT value FROM defaults + (SELECT value::int FROM defaults WHERE setting_key = 'fxgain_accno_id' UNION - SELECT value FROM defaults + SELECT value::int FROM defaults WHERE setting_key = 'fxloss_accno_id'))|; } else { -- cgit v1.2.3