Correcting AR allocation bug, 1881199

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2244 4979c152-3d1c-0410-bac9-87ea11338e46

1 files changed, 1 insertions, 1 deletions

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;