SF.net SVN: ledger-smb:[2509] branches/1.2

[..hidden..]

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

Log Message:
-----------
Correcting typo in IS.pm causing a bug in COGS calculation.

Modified Paths:
--------------
    branches/1.2/LedgerSMB/IS.pm
    branches/1.2/bin/oe.pl

Modified: branches/1.2/LedgerSMB/IS.pm
===================================================================
--- branches/1.2/LedgerSMB/IS.pm	2009-03-18 05:13:59 UTC (rev 2508)
+++ branches/1.2/LedgerSMB/IS.pm	2009-03-18 17:38:08 UTC (rev 2509)
@@ -1670,7 +1670,7 @@
 
                 $qty = ($qty < $totalqty) ? $totalqty : $qty;
 
-                my $inetotal = $qty*$ref->{sellprice} * -1;
+                my $linetotal = $qty*$ref->{sellprice} * -1;
                 push @{ $form->{acc_trans}{lineitems} },
                   {
                     chart_id   => $ref->{expense_accno_id},

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


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