diff options
| author | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-11-14 04:23:29 +0000 |
|---|---|---|
| committer | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-11-14 04:23:29 +0000 |
| commit | 65782920f52807fddb704f20b7541e212c1d1b68 (patch) | |
| tree | ec7cdd3ccba922ba4db8a5539be89fbf29cd6a1d /LedgerSMB/AM.pm | |
| parent | dd8034c960564d63e01afabaeed83370c6389838 (diff) | |
Fixing bug 1831410
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@1866 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB/AM.pm')
| -rwxr-xr-x | LedgerSMB/AM.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/LedgerSMB/AM.pm b/LedgerSMB/AM.pm index 445a2ab1..19a60f4b 100755 --- a/LedgerSMB/AM.pm +++ b/LedgerSMB/AM.pm @@ -1060,9 +1060,10 @@ sub recurring_transactions { my %e = (); my %p = (); - while ( my $ref = $sth->fetchrow_hashref(NAME_lc) ) { + while ( my $ref = $sth->fetchrow_hashref('NAME_lc') ) { $ref->{exchangerate} ||= 1; + $form->db_parse_numeric(sth => $sth, hashref => $ref); if ( $ref->{id} != $id ) { |