SF.net SVN: ledger-smb:[2510] branches/1.2/bin/oe.pl

[..hidden..]

Revision: 2510
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=2510&view=rev
Author:   einhverfr
Date:     2009-03-18 17:52:19 +0000 (Wed, 18 Mar 2009)

Log Message:
-----------
Undoing unintentional change to oe.pl

Modified Paths:
--------------
    branches/1.2/bin/oe.pl

Modified: branches/1.2/bin/oe.pl
===================================================================
--- branches/1.2/bin/oe.pl	2009-03-18 17:38:08 UTC (rev 2509)
+++ branches/1.2/bin/oe.pl	2009-03-18 17:52:19 UTC (rev 2510)
@@ -1084,9 +1084,9 @@
                     $form->{"${_}_base"} += $amount;
                 }
                 if ( !$form->{taxincluded} ) {
-                    _calc_taxes();
-			#print join ('$', keys %{$form->{taxes}});
-                    $form->debug;
+                    my @taxes = Tax::init_taxes( $form, $form->{taxaccounts} );
+                    $amount +=
+                      Tax::calculate_taxes( ..hidden.., $form, $amount, 0 );
                 }
 
                 $form->{creditremaining} -= $amount;


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