From db3e35002f922a80bf93ab5b5da09d2b352681d1 Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Fri, 19 Oct 2007 18:47:03 +0000
Subject: GL Vouchers are posting and saving correctly.  Need to get listing
 and approving but that is conceptually a lot easier and involves a lot less
 legacy code

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1796 4979c152-3d1c-0410-bac9-87ea11338e46
---
 bin/aa.pl | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'bin/aa.pl')

diff --git a/bin/aa.pl b/bin/aa.pl
index 2124ccef..ef2bb82f 100644
--- a/bin/aa.pl
+++ b/bin/aa.pl
@@ -541,10 +541,12 @@ qq|<textarea name=notes rows=$rows cols=50 wrap=soft>$form->{notes}</textarea>|;
 <input type=hidden name=title value="$title">
 
 |;
-
+    if (!defined $form->{approved}){
+        $form->{approved} = 1;
+    }
     $form->hide_form(
-        qw(id printed emailed sort closedto locked oldtransdate audittrail 
-           recurring checktax reverse batch_id subtype)
+        qw(batch_id approved id printed emailed sort closedto locked 
+           oldtransdate audittrail recurring checktax reverse batch_id subtype)
     );
 
     if ( $form->{vc} eq 'customer' ) {
-- 
cgit v1.2.3