Voucher creation support added to API

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1284 4979c152-3d1c-0410-bac9-87ea11338e46

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);