From 44fe65cb76ce565733833209d653e68cdee6649b Mon Sep 17 00:00:00 2001
From: tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Tue, 13 Nov 2007 18:42:17 +0000
Subject: Fixing bug 1831246.  Only bad args in LedgerSMB/RC.pm for arrays in
 this branch

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1865 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB/RC.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'LedgerSMB/RC.pm')

diff --git a/LedgerSMB/RC.pm b/LedgerSMB/RC.pm
index 4eae7823..206565dd 100644
--- a/LedgerSMB/RC.pm
+++ b/LedgerSMB/RC.pm
@@ -166,7 +166,7 @@ sub payment_transactions {
     $sth = $dbh->prepare($query);
     $sth->execute( $form->{accno} );
     my @balancelist = $sth->fetchrow_array();
-    $form->db_parse_numeric(sth=>$sth, arraylist=>\@balancelist);
+    $form->db_parse_numeric(sth=>$sth, arrayref=>\@balancelist);
     ( $form->{beginningbalance} ) = @balancelist;
 
     $query = qq|
@@ -179,7 +179,7 @@ sub payment_transactions {
     $sth = $dbh->prepare($query);
     $sth->execute( $form->{accno} );
     @balancelist = $sth->fetchrow_array();
-    $form->db_parse_numeric(sth=>$sth, arraylist=>\@balancelist);
+    $form->db_parse_numeric(sth=>$sth, arrayref=>\@balancelist);
     ( $form->{fx_balance} ) = @balancelist;
 
     $transdate = "";
@@ -198,7 +198,7 @@ sub payment_transactions {
     $sth = $dbh->prepare($query);
     $sth->execute( $form->{accno} );
     @balancelist = $sth->fetchrow_array();
-    $form->db_parse_numeric(sth=>$sth, arraylist=>\@balancelist);
+    $form->db_parse_numeric(sth=>$sth, arrayref=>\@balancelist);
     ( $form->{endingbalance} ) = @balancelist;
 
     # fx balance
@@ -211,7 +211,7 @@ sub payment_transactions {
     $sth = $dbh->prepare($query);
     $sth->execute( $form->{accno} );
     @balancelist = $sth->fetchrow_array();
-    $form->db_parse_numeric(sth=>$sth, arraylist=>\@balancelist);
+    $form->db_parse_numeric(sth=>$sth, arrayref=>\@balancelist);
     ( $form->{fx_endingbalance} ) = @balancelist;
 
     $cleared = qq| AND ac.cleared = '0'| unless $form->{fromdate};
-- 
cgit v1.2.3