Keine globalen Variablen überschreiben/benutzen.

diff --git a/bin/mozilla/ir.pl b/bin/mozilla/ir.pl
index 3bfcbf6..1f7d346 100644 (file)
--- a/bin/mozilla/ir.pl
+++ b/bin/mozilla/ir.pl
@@ -189,6 +189,7 @@ sub prepare_invoice {
 
     map { $form->{$_} =~ s/\"/"/g } qw(invnumber ordnumber quonumber);
 
+    my $i = 0;
     foreach $ref (@{ $form->{invoice_details} }) {
       $i++;
       map { $form->{"${_}_$i"} = $ref->{$_} } keys %{$ref};