summaryrefslogtreecommitdiff
path: root/LedgerSMB
diff options
context:
space:
mode:
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