From 6197875a089f314b2a5f22a5d0cf645cdcf7c46d Mon Sep 17 00:00:00 2001 From: Moritz Bunkus Date: Thu, 26 Apr 2007 12:24:16 +0000 Subject: [PATCH] =?utf8?q?Variablennamen=20etwas=20verst=C3=A4ndlicher=20g?= =?utf8?q?emacht.=20Zus=C3=A4tzlich=20einen=20Bug=20behoben,=20der=20daf?= =?utf8?q?=C3=BCr=20sorgte,=20dass=20die=20nicht=20zu=20versteckenden=20Fe?= =?utf8?q?lder=20nicht=20aussortiert=20wurden:=20$hash{@array}=3D...=20ist?= =?utf8?q?=20falsch,=20richtig=20muss=20es=20@hash{@array}=3D...=20hei?= =?utf8?q?=C3=9Fen.?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- bin/mozilla/io.pl | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) 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, -- 2.20.1