diff options
| author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-10-19 18:47:03 +0000 |
|---|---|---|
| committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-10-19 18:47:03 +0000 |
| commit | db3e35002f922a80bf93ab5b5da09d2b352681d1 (patch) | |
| tree | 87bb50fe590ac5b62ed69b610e0d02fd526bfeca /bin | |
| parent | c2f3e31ee16b527315a3c6ffde4f4001c431f9ee (diff) | |
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
Diffstat (limited to 'bin')
| -rw-r--r-- | bin/aa.pl | 8 | ||||
| -rw-r--r-- | bin/gl.pl | 6 |
2 files changed, 10 insertions, 4 deletions
@@ -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' ) { @@ -1103,6 +1103,9 @@ qq|<textarea name=notes rows=$rows cols=50 wrap=soft>$form->{notes}</textarea>|; else { $notes = qq|<input name=notes size=50 value="$form->{notes}">|; } + if (!defined $form->{approved}){ + $form->{approved} = '1'; + } $department = qq| <tr> @@ -1131,10 +1134,11 @@ qq|<textarea name=notes rows=$rows cols=50 wrap=soft>$form->{notes}</textarea>|; <body onload="document.forms[0].${focus}.focus()" /> <form method=post action=$form->{script}> + <input type="hidden" name="approved" value="$form->{approved}" /> |; $form->hide_form( - qw(id transfer selectaccno closedto locked oldtransdate recurring)); + qw(batch_id id transfer selectaccno closedto locked oldtransdate recurring)); print qq| <input type=hidden name=title value="$title"> |