SF.net SVN: ledger-smb: [1865] trunk/LedgerSMB/RC.pm

[..hidden..]

Revision: 1865
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=1865&view=rev
Author:   tetragon
Date:     2007-11-13 10:42:17 -0800 (Tue, 13 Nov 2007)

Log Message:
-----------
Fixing bug 1831246.  Only bad args in LedgerSMB/RC.pm for arrays in this branch

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

Modified: trunk/LedgerSMB/RC.pm
===================================================================
--- trunk/LedgerSMB/RC.pm	2007-11-13 18:40:47 UTC (rev 1864)
+++ trunk/LedgerSMB/RC.pm	2007-11-13 18:42:17 UTC (rev 1865)
@@ -166,7 +166,7 @@
     $sth = $dbh->prepare($query);
     $sth->execute( $form->{accno} );
     my @balancelist = $sth->fetchrow_array();
-    $form->db_parse_numeric(sth=>$sth, arraylist=>..hidden..);
+    $form->db_parse_numeric(sth=>$sth, arrayref=>..hidden..);
     ( $form->{beginningbalance} ) = @balancelist;
 
     $query = qq|
@@ -179,7 +179,7 @@
     $sth = $dbh->prepare($query);
     $sth->execute( $form->{accno} );
     @balancelist = $sth->fetchrow_array();
-    $form->db_parse_numeric(sth=>$sth, arraylist=>..hidden..);
+    $form->db_parse_numeric(sth=>$sth, arrayref=>..hidden..);
     ( $form->{fx_balance} ) = @balancelist;
 
     $transdate = "";
@@ -198,7 +198,7 @@
     $sth = $dbh->prepare($query);
     $sth->execute( $form->{accno} );
     @balancelist = $sth->fetchrow_array();
-    $form->db_parse_numeric(sth=>$sth, arraylist=>..hidden..);
+    $form->db_parse_numeric(sth=>$sth, arrayref=>..hidden..);
     ( $form->{endingbalance} ) = @balancelist;
 
     # fx balance
@@ -211,7 +211,7 @@
     $sth = $dbh->prepare($query);
     $sth->execute( $form->{accno} );
     @balancelist = $sth->fetchrow_array();
-    $form->db_parse_numeric(sth=>$sth, arraylist=>..hidden..);
+    $form->db_parse_numeric(sth=>$sth, arrayref=>..hidden..);
     ( $form->{fx_endingbalance} ) = @balancelist;
 
     $cleared = qq| AND ac.cleared = '0'| unless $form->{fromdate};


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