-sub action_edit_email {
- my ($self) = @_;
-
- my $letter = $self->_update;
- $self->export_letter_to_form($letter);
-
- $::form->{formname} = "letter";
- $::form->{type} = "letter";
- $::form->{letternumber} = $self->letter->letternumber;
-
- my @hiddens = map {
- my $value = $letter->$_;
- $value = $value->to_kivitendo if ref($_) =~ m{Date};
-
- { name => "letter.$_", value => $value }
- } ($letter->meta->columns);
-
- my %vars = (
- script => 'controller.pl',
- title => t8('Send letter via e-mail'),
- email => $letter->contact ? $letter->contact->cp_email : '',
- subject => $::form->generate_email_subject,
- a_filename => $::form->generate_attachment_filename,
- HIDDEN => \@hiddens,
- SHOW_BCC => $::auth->assert('email_bcc', 'may fail'),
- );
-
- $::request->layout->use_javascript("kivi.SalesPurchase.js");
- $self->setup_edit_email_action_bar;
- $self->render('letter/edit_email', %vars);
-}
-