From 050d1f5d21a22e79ea575c182164540e6fb5d6da Mon Sep 17 00:00:00 2001 From: tetragon Date: Mon, 2 Oct 2006 22:58:42 +0000 Subject: Fix quoting of the default currency in recurring_transactions. git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@182 4979c152-3d1c-0410-bac9-87ea11338e46 --- LedgerSMB/AM.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/LedgerSMB/AM.pm b/LedgerSMB/AM.pm index 142111c1..c1576aed 100755 --- a/LedgerSMB/AM.pm +++ b/LedgerSMB/AM.pm @@ -951,8 +951,8 @@ sub recurring_transactions { my $query = qq|SELECT curr FROM defaults|; - my ($defaultcurrency) = $dbh->quote($dbh->selectrow_array($query)); - $defaultcurrency =~ s/:.*//g; + my ($defaultcurrency) = $dbh->selectrow_array($query); + $defaultcurrency = $dbh->quote($defaultcurrency =~ s/:.*//g); $form->{sort} ||= "nextdate"; my @a = ($form->{sort}); @@ -1004,7 +1004,7 @@ sub recurring_transactions { s.*, se.formname AS recurringemail, sp.formname AS recurringprint, s.nextdate - current_date AS overdue, '' AS vc, - '1' AS exchangerate, '$defaultcurrency' AS curr, + '1' AS exchangerate, $defaultcurrency AS curr, (s.nextdate IS NULL OR s.nextdate > s.enddate) AS expired FROM recurring s -- cgit v1.2.3