Revision 6197875a
Von Moritz Bunkus vor fast 18 Jahren hinzugefügt
| bin/mozilla/io.pl | ||
|---|---|---|
|
$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,
|
||
Auch abrufbar als: Unified diff
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.