From 56e9d81259d7f0b45b8a9dd3dc8dce6e048806c3 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Sven=20Sch=C3=B6ling?= <s.schoeling@linet-services.de>
Date: Fri, 23 Oct 2009 14:11:29 +0200
Subject: [PATCH] ir.pl: nicht abgefangenes uninitialisiertes array

---
 bin/mozilla/ir.pl | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/bin/mozilla/ir.pl b/bin/mozilla/ir.pl
index f7dcd6af5..d848abc64 100644
--- 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"} =
-- 
2.20.1