X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/kivitendo-erp.git/blobdiff_plain/6bad0469c4f5bb92830f77cf7675e76730e79ae4..6197875a089f314b2a5f22a5d0cf645cdcf7c46d:/bin/mozilla/io.pl

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,