Fix for bug 1831402

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

1 files changed, 1 insertions, 0 deletions

diff --git a/bin/oe.pl b/bin/oe.pl
index 64732dab..0d98b5e4 100755
--- a/bin/oe.pl
+++ b/bin/oe.pl
@@ -243,6 +243,7 @@ sub prepare_order {
             $form->{$_} = $form->quote( $form->{$_} );
         }
 
+        my $i = 0;
         foreach $ref ( @{ $form->{form_details} } ) {
             $i++;
             for ( keys %$ref ) { $form->{"${_}_$i"} = $ref->{$_} }