From 5c6cd055b1b83d8309332ab3ce1001137d0e8f42 Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Tue, 19 Jun 2007 06:47:55 +0000
Subject: More voucher-related commits

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1285 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB/AA.pm | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'LedgerSMB/AA.pm')

diff --git a/LedgerSMB/AA.pm b/LedgerSMB/AA.pm
index 4f14fda8..8c4c4ad9 100644
--- a/LedgerSMB/AA.pm
+++ b/LedgerSMB/AA.pm
@@ -326,6 +326,16 @@ sub post_transaction {
         $query = qq| UPDATE $table SET approved = ? WHERE id = ?|;
         $dbh->prepare($query)->execute($form->{approved}, $form->{id}) ||
             $form->dberror($query);
+        if (!$form->{approved}){
+           if (not defined $form->{batch_id}){
+               $form->error($locale->text('Batch ID Missing'));
+           }
+           $query = qq| 
+		INSERT INTO voucher (batch_id, trans_id) VALUES (?, ?)|;
+           $dbh->prepare($query)->execute($form->{batch_id}, $form->{id}) ||
+                $form->dberror($query);
+        }
+        
     }
     @queries = $form->run_custom_queries( $table, 'INSERT' );
 
-- 
cgit v1.2.3