SF.net SVN: ledger-smb: [1188] branches/1.2/LedgerSMB

[..hidden..]

Revision: 1188
          http://svn.sourceforge.net/ledger-smb/?rev=1188&view=rev
Author:   einhverfr
Date:     2007-05-14 11:02:56 -0700 (Mon, 14 May 2007)

Log Message:
-----------
Fixing more number double parsing bugs

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

Modified: branches/1.2/LedgerSMB/CA.pm
===================================================================
--- branches/1.2/LedgerSMB/CA.pm	2007-05-14 18:02:20 UTC (rev 1187)
+++ branches/1.2/LedgerSMB/CA.pm	2007-05-14 18:02:56 UTC (rev 1188)
@@ -53,6 +53,7 @@
     $sth->execute || $form->dberror($query);
 
     while ( my $ref = $sth->fetchrow_hashref(NAME_lc) ) {
+        $form->db_parse_numeric(sth=>$sth, hashref=>$ref);
         $amount{ $ref->{accno} } = $ref->{amount};
     }
 
@@ -317,7 +318,9 @@
 
             $sth = $dbh->prepare($query);
             $sth->execute(@queryargs);
-            ( $form->{balance} ) = $sth->fetchrow_array;
+            my @balance = $sth->fetchrow_array;
+            $form->db_parse_numeric(sth=>$sth, arrayref=>..hidden..);
+            ( $form->{balance} ) = @balance; 
             $sth->finish;
             @queryargs = ();
         }
@@ -455,7 +458,7 @@
     my %accno;
 
     while ( my $ca = $sth->fetchrow_hashref(NAME_lc) ) {
-
+        $form->db_parse_numeric(sth=>$sth, hashref=>$ca);
         # gl
         if ( $ca->{module} eq "gl" ) {
             $ca->{module} = "gl";
@@ -482,7 +485,9 @@
                 $dr->execute( $ca->{id} );
                 $ca->{accno} = ();
 
-                while ( ( $chart_id, $accno ) = $dr->fetchrow_array ) {
+                while ( my @dr_results = $dr->fetchrow_array ) {
+                    $form->db_parse_numeric(sth=>$dr, arrayref=>..hidden..);
+                    ($chart_id, $accno) = @dr_results;
                     $accno{$accno} = 1 if $chart_id ne $ca->{chart_id};
                 }
 
@@ -499,7 +504,9 @@
                 $cr->execute( $ca->{id} );
                 $ca->{accno} = ();
 
-                while ( ( $chart_id, $accno ) = $cr->fetchrow_array ) {
+                while ( my @cr_results = $cr->fetchrow_array ) {
+                    $form->db_parse_numeric(sth=>$cr, arrayref=>..hidden..);
+                    ($chart_id, $accno) = @cr_results;
                     $accno{$accno} = 1 if $chart_id ne $ca->{chart_id};
                 }
 

Modified: branches/1.2/LedgerSMB/RP.pm
===================================================================
--- branches/1.2/LedgerSMB/RP.pm	2007-05-14 18:02:20 UTC (rev 1187)
+++ branches/1.2/LedgerSMB/RP.pm	2007-05-14 18:02:56 UTC (rev 1188)
@@ -1222,7 +1222,6 @@
 
     my $sth = $dbh->prepare($query);
     $sth->execute || $form->dberror($query);
-
     while ( $ref = $sth->fetchrow_hashref(NAME_lc) ) {
 
         $form->db_parse_numeric(sth=>$sth, hashref=>$ref);


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