diff options
Diffstat (limited to 'bin')
-rwxr-xr-x | bin/aa.pl | 7 |
1 files changed, 5 insertions, 2 deletions
@@ -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; |