SF.net SVN: ledger-smb:[2245] branches/1.2/LedgerSMB/IS.pm

[..hidden..]

Revision: 2245
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=2245&view=rev
Author:   einhverfr
Date:     2008-08-12 00:53:58 +0000 (Tue, 12 Aug 2008)

Log Message:
-----------
Merging fix for 1881199

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

Modified: branches/1.2/LedgerSMB/IS.pm
===================================================================
--- branches/1.2/LedgerSMB/IS.pm	2008-08-12 00:53:37 UTC (rev 2244)
+++ branches/1.2/LedgerSMB/IS.pm	2008-08-12 00:53:58 UTC (rev 2245)
@@ -905,7 +905,6 @@
 
     my $i;
     my $item;
-    my $allocated = 0;
     my $taxrate;
     my $tax;
     my $fxtax;
@@ -925,6 +924,7 @@
     }
 
     foreach $i ( 1 .. $form->{rowcount} ) {
+        my $allocated = 0;
         $form->{"qty_$i"} = $form->parse_amount( $myconfig, $form->{"qty_$i"} );
 
         if ( $form->{"qty_$i"} ) {


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