SF.net SVN: ledger-smb: [1770] branches/1.2/LedgerSMB/RP.pm

[..hidden..]

Revision: 1770
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=1770&view=rev
Author:   tetragon
Date:     2007-10-17 09:09:40 -0700 (Wed, 17 Oct 2007)

Log Message:
-----------
Apply db_parse_numeric to the correct hashref, fixes 1815081

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

Modified: branches/1.2/LedgerSMB/RP.pm
===================================================================
--- branches/1.2/LedgerSMB/RP.pm	2007-10-17 16:09:26 UTC (rev 1769)
+++ branches/1.2/LedgerSMB/RP.pm	2007-10-17 16:09:40 UTC (rev 1770)
@@ -2376,8 +2376,8 @@
         $sth = $dbh->prepare($query);
         $sth->execute || $form->dberror($query);
 
-        while ( my $pr = $sth->fetchrow_hashref(NAME_lc) ) {
-            $form->db_parse_numeric(sth=>$sth, hashref=>$ref);
+        while ( my $pr = $sth->fetchrow_hashref('NAME_lc') ) {
+            $form->db_parse_numeric(sth=>$sth, hashref=>$pr);
             push @{ $form->{ $ref->{id} } }, $pr;
         }
         $sth->finish;


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