ir.pl: nicht abgefangenes uninitialisiertes array

diff --git a/bin/mozilla/ir.pl b/bin/mozilla/ir.pl
index f7dcd6a..d848abc 100644 (file)
--- a/bin/mozilla/ir.pl
+++ b/bin/mozilla/ir.pl
@@ -166,6 +166,8 @@ sub invoice_links {
       $form->{"select$key"} .= "<option>$ref->{accno}--$ref->{description}\n";
     }
 
+    next unless $form->{acc_trans}{$key};
+
     if ($key eq "AP_paid") {
       for my $i (1 .. scalar @{ $form->{acc_trans}{$key} }) {
         $form->{"AP_paid_$i"} =