X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fio.pl;h=2afa3bb2717da10a2c96ed2d268b15c224765f53;hb=2fda509c7dc417aad28ed072e91e8ffe2396314d;hp=ca6d96bccac5ebb74e4b7ac13b88941aa964db59;hpb=bcd1d3af33a27ea33cf50d54aaebe8338b4dab38;p=kivitendo-erp.git

diff --git a/bin/mozilla/io.pl b/bin/mozilla/io.pl
index ca6d96bcc..2afa3bb27 100644
--- a/bin/mozilla/io.pl
+++ b/bin/mozilla/io.pl
@@ -1313,9 +1313,10 @@ sub edit_e_mail {
   $form->{"fokus"} = $form->{"email"} ? "Form.subject" : "Form.email";
   $form->header;
 
-  my (@nh, %nh, @hiddenkeys);
-  @nh = qw(action email cc bcc subject message formname sendmode format header override); $nh{@nh} = (1)x@nh;
-  @hidden_keys = grep { !$nh{$_} } grep { !ref $form->{$_} } keys %$form;
+  my (@dont_hide_key_list, %dont_hide_key, @hidden_keys);
+  @dont_hide_key_list = qw(action email cc bcc subject message formname sendmode format header override);
+  @dont_hide_key{@dont_hide_key_list} = (1) x @dont_hide_key_list;
+  @hidden_keys = grep { !$dont_hide_key{$_} } grep { !ref $form->{$_} } keys %$form;
 
   print $form->parse_html_template('generic/edit_email', 
                                   { title           => $title,