From 0cb00fa62bff950afe3c9a46d3c38abbe3fb23e5 Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Tue, 12 Aug 2008 00:53:37 +0000
Subject: Correcting AR allocation bug, 1881199

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2244 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB/IS.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'LedgerSMB/IS.pm')

diff --git a/LedgerSMB/IS.pm b/LedgerSMB/IS.pm
index 0fb7203a..aa6d31f9 100644
--- a/LedgerSMB/IS.pm
+++ b/LedgerSMB/IS.pm
@@ -908,7 +908,6 @@ sub post_invoice {
 
     my $i;
     my $item;
-    my $allocated = 0;
     my $taxrate;
     my $tax;
     my $fxtax;
@@ -928,6 +927,7 @@ sub post_invoice {
     }
 
     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;
-- 
cgit v1.2.3