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/IS.pm b/LedgerSMB/IS.pm
index f737e5d3..dfbb465d 100644
--- a/LedgerSMB/IS.pm
+++ b/LedgerSMB/IS.pm
@@ -1096,6 +1096,12 @@ sub post_invoice {
                 $project_id,               $form->{"serialnumber_$i"},
                 $form->{"notes_$i"},       $invoice_id
             ) || $form->dberror($query);
+            if (defined $form->{approved}) {
+
+                $query = qq| UPDATE ar SET approved = ? WHERE id = ?|;
+                $dbh->prepare($query)->execute($form->{approved}, $form->{id}) 
+                     || $form->dberror($query);
+            }
 
             # add invoice_id
             $form->{acc_trans}{lineitems}[$ndx]->{invoice_id} = $invoice_id;