From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Wed, 4 Apr 2007 14:52:32 +0000 (+0000)
Subject: Mehr Umformatierungen.
X-Git-Tag: release-2.4.3^2~518
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=cc38697a3af2c270c662e9187aeb3f6ecb92d709;p=kivitendo-erp.git

Mehr Umformatierungen.
---

diff --git a/bin/mozilla/io.pl b/bin/mozilla/io.pl
index 476ff0153..5f2324f15 100644
--- a/bin/mozilla/io.pl
+++ b/bin/mozilla/io.pl
@@ -642,18 +642,16 @@ sub select_item {
 
     map { print "\n$column_data{$_}" } @column_index;
 
-    print qq|
-</tr>
-|;
-map({ print($cgi->hidden("-name" => "new_$__$i", "-value" => $ref->{$_})); } 
-        qw(bin listprice inventory_accno income_accno expense_accno unit weight assembly taxaccounts partsgroup 
-           formel logdescription not_discountable part_payment_id partnodes id));
-if ($lizenzen) {
-      print qq|
-<input name="new_lizenzen_$i" type="hidden" value="$ref->{lizenzen}">
-|;
-    }
+    print("</tr>\n");
+
+    my @new_fields =
+      qw(bin listprice inventory_accno income_accno expense_accno unit weight
+         assembly taxaccounts partsgroup formel logdescription not_discountable
+         part_payment_id partnodes id);
+    push(@new_fields, "lizenzen") if ($lizenzen);
 
+    map({ print($cgi->hidden("-name" => "new_${_}_$i",
+                             "-value" => $ref->{$_})); } @new_fields);
   }
 
   print qq|