SF.net SVN: ledger-smb: [1866] branches/1.2/LedgerSMB/AM.pm

[..hidden..]

Revision: 1866
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=1866&view=rev
Author:   tetragon
Date:     2007-11-13 20:23:29 -0800 (Tue, 13 Nov 2007)

Log Message:
-----------
Fixing bug 1831410

Modified Paths:
--------------
    branches/1.2/LedgerSMB/AM.pm

Modified: branches/1.2/LedgerSMB/AM.pm
===================================================================
--- branches/1.2/LedgerSMB/AM.pm	2007-11-13 18:42:17 UTC (rev 1865)
+++ branches/1.2/LedgerSMB/AM.pm	2007-11-14 04:23:29 UTC (rev 1866)
@@ -1060,9 +1060,10 @@
     my %e = ();
     my %p = ();
 
-    while ( my $ref = $sth->fetchrow_hashref(NAME_lc) ) {
+    while ( my $ref = $sth->fetchrow_hashref('NAME_lc') ) {
 
         $ref->{exchangerate} ||= 1;
+        $form->db_parse_numeric(sth => $sth, hashref => $ref);
 
         if ( $ref->{id} != $id ) {
 


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