SF.net SVN: ledger-smb: [582] trunk/LedgerSMB/Form.pm

[..hidden..]

Revision: 582
          http://svn.sourceforge.net/ledger-smb/?rev=582&view=rev
Author:   einhverfr
Date:     2006-11-13 21:24:26 -0800 (Mon, 13 Nov 2006)

Log Message:
-----------
Fixed currencies not showing up.

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

Modified: trunk/LedgerSMB/Form.pm
===================================================================
--- trunk/LedgerSMB/Form.pm	2006-11-14 04:49:36 UTC (rev 581)
+++ trunk/LedgerSMB/Form.pm	2006-11-14 05:24:26 UTC (rev 582)
@@ -2174,7 +2174,7 @@
 			$sth = $dbh->prepare($query);
 			$sth->execute || $self->dberror($query);
 
-			(undef, $val) = $sth->fetchrow_array();
+			($val) = $sth->fetchrow_array();
 			if ($_ eq 'curr'){
 				$self->{currencies} = $val;
 			} elsif ($_ eq 'current_date'){


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