Revision 369f24c6
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
bin/mozilla/dn.pl | ||
---|---|---|
231 | 231 |
sub set_email { |
232 | 232 |
$lxdebug->enter_sub(); |
233 | 233 |
|
234 |
|
|
235 |
my $callback = "$form->{script}?action=set_email&"; |
|
236 |
map({ $callback .= "$_=" . $form->escape($form->{$_}) . "&" } |
|
237 |
(qw(login password name input_subject input_body input_attachment email_subject email_body email_attachment), grep({ /^[fl]_/ } keys %$form))); |
|
238 |
|
|
239 |
if ($form->{email_attachment}) { |
|
240 |
$form->{email_attachment} = "checked"; |
|
241 |
} |
|
242 | 234 |
$form->{"title"} = $locale->text("Set eMail text"); |
243 | 235 |
$form->header(); |
244 | 236 |
print($form->parse_html_template("dunning/set_email")); |
Auch abrufbar als: Unified diff
Überflüssiger Code.