summaryrefslogtreecommitdiff
path: root/LedgerSMB
diff options
context:
space:
mode:
authortetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>2006-10-02 22:58:42 +0000
committertetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>2006-10-02 22:58:42 +0000
commit050d1f5d21a22e79ea575c182164540e6fb5d6da (patch)
treeb3d6c5b1010e11af392746f5a81a6b15a92bdec9 /LedgerSMB
parent3b8d511bbdc0072e77314e369b3317a56aaf65e6 (diff)
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
Diffstat (limited to 'LedgerSMB')
-rwxr-xr-xLedgerSMB/AM.pm6
1 files 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