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

[..hidden..]

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

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

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

Modified: trunk/LedgerSMB/AM.pm
===================================================================
--- trunk/LedgerSMB/AM.pm	2007-11-14 04:23:29 UTC (rev 1866)
+++ trunk/LedgerSMB/AM.pm	2007-11-14 04:23:51 UTC (rev 1867)
@@ -1391,9 +1391,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.