SF.net SVN: ledger-smb:[4109] branches/1.3/LedgerSMB/OE.pm

[..hidden..]

Revision: 4109
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=4109&view=rev
Author:   tshvr
Date:     2011-11-28 12:03:09 +0000 (Mon, 28 Nov 2011)
Log Message:
-----------
init_taxes limit to vendor/customer taxes, else invalid totals

Modified Paths:
--------------
    branches/1.3/LedgerSMB/OE.pm

Modified: branches/1.3/LedgerSMB/OE.pm
===================================================================
--- branches/1.3/LedgerSMB/OE.pm	2011-11-27 23:01:14 UTC (rev 4108)
+++ branches/1.3/LedgerSMB/OE.pm	2011-11-28 12:03:09 UTC (rev 4109)
@@ -36,6 +36,7 @@
 use LedgerSMB::Tax;
 use LedgerSMB::Sysconfig;
 
+my $logger = Log::Log4perl->get_logger('OE');
 =over
 
 =item get_files
@@ -1352,7 +1353,8 @@
               $form->format_amount( $myconfig, $linetotal, 2 );
             push( @{ $form->{linetotal} }, $form->{"linetotal_$i"} );
 
-            @taxaccounts = Tax::init_taxes( $form, $form->{"taxaccounts_$i"} );
+            @taxaccounts = Tax::init_taxes( $form, $form->{"taxaccounts_$i"} , $form->{taxaccounts} );#limit to vendor/customer taxes, else invalid totals!!
+            #$logger->trace("linetotal=".$form->{"linetotal_$i"}." i=$i taxaccounts_i=".$form->{"taxaccounts_$i"}." taxaccounts size=".scalar @taxaccounts);
 
             my $ml       = 1;
             my @taxrates = ();

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