diff options
| -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 |