diff options
| author | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-11-16 01:22:55 +0000 |
|---|---|---|
| committer | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-11-16 01:22:55 +0000 |
| commit | b7921489a7354586fed28f9731bab2ccbc20b53b (patch) | |
| tree | 6e4747c056f7f527b5811f5eab2a944701283ceb /LedgerSMB/AM.pm | |
| parent | 51a288a5381ef6ce1a5c85cd1d56fb0fd8f6d199 (diff) | |
Fix yearend post query
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@635 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB/AM.pm')
| -rwxr-xr-x | LedgerSMB/AM.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/LedgerSMB/AM.pm b/LedgerSMB/AM.pm index df039e90..95b2a075 100755 --- a/LedgerSMB/AM.pm +++ b/LedgerSMB/AM.pm @@ -1763,7 +1763,9 @@ sub post_yearend { FROM gl WHERE reference = ?|; - ($form->{id}) = $dbh->prepare($query)->fetchrow_array($uid); + my $sth = $dbh->prepare($query); + $sth->execute($uid); + ($form->{id}) = $sth->fetchrow_array; $query = qq| UPDATE gl |