summaryrefslogtreecommitdiff
path: root/bin
diff options
context:
space:
mode:
Diffstat (limited to 'bin')
-rw-r--r--bin/aa.pl8
-rw-r--r--bin/gl.pl6
2 files changed, 10 insertions, 4 deletions
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' ) {
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|<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">