summaryrefslogtreecommitdiff
path: root/bin/aa.pl
diff options
context:
space:
mode:
Diffstat (limited to 'bin/aa.pl')
-rwxr-xr-xbin/aa.pl7
1 files changed, 5 insertions, 2 deletions
diff --git a/bin/aa.pl b/bin/aa.pl
index 7820af02..3bdac046 100755
--- a/bin/aa.pl
+++ b/bin/aa.pl
@@ -54,8 +54,11 @@ if ( -f "bin/custom/$form->{login}_aa.pl" ) {
eval { require "bin/custom/$form->{login}_aa.pl"; };
}
+my $is_update;
+
1;
+
# end of main
# this is for our long dates
@@ -651,7 +654,7 @@ qq|<td><input name="description_$i" size="40" value="$form->{"description_$i"}">
}
foreach $item ( split / /, $form->{taxaccounts} ) {
- if($form->{"calctax_$item"}){
+ if($form->{"calctax_$item"} && $is_update){
$form->{invtotal} += $form->{"tax_$item"};
}
$form->{"calctax_$item"} =
@@ -893,7 +896,7 @@ sub form_footer {
sub update {
my $display = shift;
-
+ $is_update = 1;
if ( !$display ) {
$form->{invtotal} = 0;