Revision 83cc6a5b
Von Moritz Bunkus vor etwa 17 Jahren hinzugefügt
| bin/mozilla/io.pl | ||
|---|---|---|
| 676 | 676 |
|
| 677 | 677 |
sub edit_e_mail {
|
| 678 | 678 |
$lxdebug->enter_sub(); |
| 679 |
|
|
| 679 | 680 |
if ($form->{second_run}) {
|
| 680 | 681 |
$form->{print_and_post} = 0;
|
| 681 | 682 |
$form->{resubmit} = 0;
|
| ... | ... | |
| 699 | 700 |
$form->header; |
| 700 | 701 |
|
| 701 | 702 |
my (@dont_hide_key_list, %dont_hide_key, @hidden_keys); |
| 702 |
@dont_hide_key_list = qw(action email cc bcc subject message formname sendmode format header override);
|
|
| 703 |
@dont_hide_key_list = qw(action email cc bcc subject message sendmode format header override); |
|
| 703 | 704 |
@dont_hide_key{@dont_hide_key_list} = (1) x @dont_hide_key_list;
|
| 704 |
@hidden_keys = grep { !$dont_hide_key{$_} } grep { !ref $form->{$_} } keys %$form;
|
|
| 705 |
|
|
| 706 |
print $form->parse_html_template('generic/edit_email',
|
|
| 707 |
{ title => $title,
|
|
| 708 |
a_filename => $attachment_filename, |
|
| 709 |
_print_options_ => print_options('inline' => 1),
|
|
| 710 |
HIDDEN => [ map +{ name => $_, value => $form->{$_} }, @hidden_keys ],
|
|
| 711 |
SHOW_BCC => $myconfig{role} eq 'admin' });
|
|
| 705 |
@hidden_keys = sort grep { !$dont_hide_key{$_} } grep { !ref $form->{$_} } keys %$form;
|
|
| 706 |
|
|
| 707 |
print $form->parse_html_template2('generic/edit_email',
|
|
| 708 |
{ title => $title,
|
|
| 709 |
a_filename => $attachment_filename,
|
|
| 710 |
_print_options_ => print_options('inline' => 1),
|
|
| 711 |
HIDDEN => [ map +{ name => $_, value => $form->{$_} }, @hidden_keys ],
|
|
| 712 |
SHOW_BCC => $myconfig{role} eq 'admin' });
|
|
| 712 | 713 |
|
| 713 | 714 |
$lxdebug->leave_sub(); |
| 714 | 715 |
} |
Auch abrufbar als: Unified diff
Umstellung einiger Vorlagen aus templates/webpages/generic von HTML::Template auf Template. Die Vorlagen calculate_alu* werden gar nicht benutzt und deswegen entfernt.