diff options
| author | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-11-13 18:42:17 +0000 |
|---|---|---|
| committer | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-11-13 18:42:17 +0000 |
| commit | 44fe65cb76ce565733833209d653e68cdee6649b (patch) | |
| tree | 58d637512187736ee92815bddd2ec82845ae86a6 /LedgerSMB/RC.pm | |
| parent | aaff4863acc381f1473c7a4a15abf7b69f43372c (diff) | |
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
Diffstat (limited to 'LedgerSMB/RC.pm')
| -rw-r--r-- | LedgerSMB/RC.pm | 8 |
1 files changed, 4 insertions, 4 deletions
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}; |