Revision 6197875a
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| bin/mozilla/io.pl | ||
|---|---|---|
| 1313 | 1313 |
$form->{"fokus"} = $form->{"email"} ? "Form.subject" : "Form.email";
|
| 1314 | 1314 |
$form->header; |
| 1315 | 1315 |
|
| 1316 |
my (@nh, %nh, @hiddenkeys); |
|
| 1317 |
@nh = qw(action email cc bcc subject message formname sendmode format header override); $nh{@nh} = (1)x@nh;
|
|
| 1318 |
@hidden_keys = grep { !$nh{$_} } grep { !ref $form->{$_} } keys %$form;
|
|
| 1316 |
my (@dont_hide_key_list, %dont_hide_key, @hidden_keys); |
|
| 1317 |
@dont_hide_key_list = qw(action email cc bcc subject message formname sendmode format header override); |
|
| 1318 |
@dont_hide_key{@dont_hide_key_list} = (1) x @dont_hide_key_list;
|
|
| 1319 |
@hidden_keys = grep { !$dont_hide_key{$_} } grep { !ref $form->{$_} } keys %$form;
|
|
| 1319 | 1320 |
|
| 1320 | 1321 |
print $form->parse_html_template('generic/edit_email',
|
| 1321 | 1322 |
{ 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.