From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Thu, 26 Apr 2007 12:24:16 +0000 (+0000)
Subject: Variablennamen etwas verständlicher gemacht. Zusätzlich einen Bug behoben, der dafür... 
X-Git-Tag: release-2.4.3^2~435
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=6197875a089f314b2a5f22a5d0cf645cdcf7c46d;p=kivitendo-erp.git

Variablennamen etwas verständlicher gemacht. Zusätzlich einen Bug behoben, der dafür sorgte, dass die nicht zu versteckenden Felder nicht aussortiert wurden: $hash{@array}=... ist falsch, richtig muss es @hash{@array}=... heißen.
---

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,