Correcting incorrect subtotals on AR/AP transaction screen.

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2148 4979c152-3d1c-0410-bac9-87ea11338e46

1 files changed, 5 insertions, 2 deletions

diff --git a/bin/aa.pl b/bin/aa.pl
index defe763e..b02d69a8 100644
--- 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
@@ -694,7 +697,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"} =
@@ -937,7 +940,7 @@ sub form_footer {
 
 sub update {
     my $display = shift;
-
+    $is_update = 1;
     if ( !$display ) {
 
         $form->{invtotal} = 0;