diff options
Diffstat (limited to 'LedgerSMB/GL.pm')
| -rw-r--r-- | LedgerSMB/GL.pm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/LedgerSMB/GL.pm b/LedgerSMB/GL.pm index 322e08b1..98be9cbe 100644 --- a/LedgerSMB/GL.pm +++ b/LedgerSMB/GL.pm @@ -130,6 +130,12 @@ sub post_transaction { department_id = ? WHERE id = ?|; + if (defined $form->{approved}) { + + $query = qq| UPDATE gl SET approved = ? WHERE id = ?|; + $dbh->prepare($query)->execute($form->{approved}, $form->{id}) + || $form->dberror($query); + } $sth = $dbh->prepare($query); $sth->execute( $form->{transdate}, $department_id, $form->{id} ) || $form->dberror($query); |