SF.net SVN: ledger-smb:[2244] trunk/LedgerSMB/IS.pm

[..hidden..]

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

Log Message:
-----------
Correcting AR allocation bug, 1881199

Modified Paths:
--------------
    trunk/LedgerSMB/IS.pm

Modified: trunk/LedgerSMB/IS.pm
===================================================================
--- trunk/LedgerSMB/IS.pm	2008-08-12 00:48:13 UTC (rev 2243)
+++ trunk/LedgerSMB/IS.pm	2008-08-12 00:53:37 UTC (rev 2244)
@@ -908,7 +908,6 @@
 
     my $i;
     my $item;
-    my $allocated = 0;
     my $taxrate;
     my $tax;
     my $fxtax;
@@ -928,6 +927,7 @@
     }
 
     foreach $i ( 1 .. $form->{rowcount} ) {
+        my $allocated = 0;
         $form->{"qty_$i"} = $form->parse_amount( $myconfig, $form->{"qty_$i"} );
         if ($form->{reverse}){
             $form->{"qty_$i"} *= -1;


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