From db3e35002f922a80bf93ab5b5da09d2b352681d1 Mon Sep 17 00:00:00 2001 From: einhverfr 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 +++++--- bin/gl.pl | 6 +++++- 2 files changed, 10 insertions(+), 4 deletions(-) (limited to 'bin') 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||; |; - + 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' ) { diff --git a/bin/gl.pl b/bin/gl.pl index 60de0506..6a3a3caa 100644 --- a/bin/gl.pl +++ b/bin/gl.pl @@ -1103,6 +1103,9 @@ qq||; else { $notes = qq||; } + if (!defined $form->{approved}){ + $form->{approved} = '1'; + } $department = qq| @@ -1131,10 +1134,11 @@ qq||;