SF.net SVN: ledger-smb: [2148] trunk/bin/aa.pl

[..hidden..]

Revision: 2148
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=2148&view=rev
Author:   einhverfr
Date:     2008-05-16 15:42:00 -0700 (Fri, 16 May 2008)

Log Message:
-----------
Correcting incorrect subtotals on AR/AP transaction screen.

Modified Paths:
--------------
    trunk/bin/aa.pl

Modified: trunk/bin/aa.pl
===================================================================
--- trunk/bin/aa.pl	2008-05-16 02:24:25 UTC (rev 2147)
+++ trunk/bin/aa.pl	2008-05-16 22:42:00 UTC (rev 2148)
@@ -54,8 +54,11 @@
     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 @@
     }
     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 update {
     my $display = shift;
-
+    $is_update = 1;
     if ( !$display ) {
 
         $form->{invtotal} = 0;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.