From b66cfc9fa6a4bf832ec495c7b598f00864f5f2e1 Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Sat, 1 Sep 2007 07:36:27 +0000
Subject: Preventing AR-Transaction screen from calculating sales tax since it
 doesn't have enough info to do so safely.

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@1485 4979c152-3d1c-0410-bac9-87ea11338e46
---
 bin/aa.pl | 22 ----------------------
 1 file changed, 22 deletions(-)

(limited to 'bin')

diff --git a/bin/aa.pl b/bin/aa.pl
index 90296b48..5a6f571b 100755
--- a/bin/aa.pl
+++ b/bin/aa.pl
@@ -966,28 +966,6 @@ sub update {
     }
 
     @taxaccounts = Tax::init_taxes( $form, $form->{taxaccounts} );
-    if ( $form->{taxincluded} ) {
-        $totaltax =
-          Tax::calculate_taxes( \@taxaccounts, $form, $form->{invtotal}, 1 );
-    }
-    else {
-        $totaltax =
-          Tax::calculate_taxes( \@taxaccounts, $form, $form->{invtotal}, 0 );
-    }
-    foreach $item (@taxaccounts) {
-        $taccno = $item->account;
-        if ( $form->{calctax} ) {
-            $form->{"calctax_$taccno"} = 1;
-            $form->{"tax_$taccno"} = $form->round_amount( $item->value, 2 );
-        }
-        $form->{"select$form->{ARAP}_tax_$taccno"} =
-          qq|<option>$taccno--$form->{"${taccno}_description"}|;
-    }
-
-    $form->{invtotal} =
-      ( $form->{taxincluded} )
-      ? $form->{invtotal}
-      : $form->{invtotal} + $totaltax;
 
     $j = 1;
     for $i ( 1 .. $form->{paidaccounts} ) {
-- 
cgit v1.2.3