SF.net SVN: ledger-smb:[2334] branches/1.2/LedgerSMB/OE.pm

[..hidden..]

Revision: 2334
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=2334&view=rev
Author:   einhverfr
Date:     2008-09-22 23:06:22 +0000 (Mon, 22 Sep 2008)

Log Message:
-----------
Correcting scoping issue which causes problems in Perl 5.10.0

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

Modified: branches/1.2/LedgerSMB/OE.pm
===================================================================
--- branches/1.2/LedgerSMB/OE.pm	2008-09-22 22:45:40 UTC (rev 2333)
+++ branches/1.2/LedgerSMB/OE.pm	2008-09-22 23:06:22 UTC (rev 2334)
@@ -1317,7 +1317,7 @@
             $taxamount =
               Tax::calculate_taxes( ..hidden.., $form, $linetotal, 1 );
             $taxbase = Tax::extract_taxes( ..hidden.., $form, $linetotal );
-            foreach $item (@taxaccounts) {
+            foreach my $item (@taxaccounts) {
                 push @taxrates, Math::BigFloat->new(100) * $item->rate;
                 if ( $form->{taxincluded} ) {
                     $taxaccounts{ $item->account } += $item->value;


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