summaryrefslogtreecommitdiff
path: root/LedgerSMB/RC.pm
diff options
context:
space:
mode:
authortetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>2007-11-13 18:40:47 +0000
committertetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>2007-11-13 18:40:47 +0000
commitdd8034c960564d63e01afabaeed83370c6389838 (patch)
treee5e3ea996b8bc040c60b11841e33c5fbe419b87c /LedgerSMB/RC.pm
parent2b4ec03f194111cccb574579930a8f0641c3581e (diff)
Fixing bug 1831246. Caused by both a bug in db_parse_numeric and bad args in
LedgerSMB/RC.pm for arrays git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@1864 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB/RC.pm')
-rwxr-xr-xLedgerSMB/RC.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/LedgerSMB/RC.pm b/LedgerSMB/RC.pm
index 63558b49..592f2234 100755
--- 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};