SF.net SVN: ledger-smb: [182] trunk/LedgerSMB/AM.pm

[..hidden..]

Revision: 182
          http://svn.sourceforge.net/ledger-smb/?rev=182&view=rev
Author:   tetragon
Date:     2006-10-02 15:58:42 -0700 (Mon, 02 Oct 2006)

Log Message:
-----------
Fix quoting of the default currency in recurring_transactions.

Modified Paths:
--------------
    trunk/LedgerSMB/AM.pm

Modified: trunk/LedgerSMB/AM.pm
===================================================================
--- trunk/LedgerSMB/AM.pm	2006-10-02 20:52:15 UTC (rev 181)
+++ trunk/LedgerSMB/AM.pm	2006-10-02 22:58:42 UTC (rev 182)
@@ -951,8 +951,8 @@
 
 	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 @@
 		          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


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.