projekt kivitendo

use List::UtilsBy qw(sort_by uniq_by);

use Cwd;

  my $email_form;

  $email_form->{to}   = $self->order->contact->cp_email if $self->order->contact;

  $email_form->{to} ||= $self->order->$cv_method->email;

  $email_form->{cc}   = $self->order->$cv_method->cc;

  $email_form->{bcc}  = join ', ', grep $_, $self->order->$cv_method->bcc, SL::DB::Default->get->global_bcc;

  $email_form->{subject}             = $form->generate_email_subject();

  $email_form->{attachment_filename} = $form->generate_attachment_filename();

  $email_form->{message}             = $form->generate_email_body();

  $email_form->{js_send_function}    = 'kivi.Order.send_email()';

  my %files = $self->_get_files_for_email_dialog();

  my $dialog_html = $self->render('common/_send_email_dialog', { output => 0 },

                                  email_form  => $email_form,

                                  show_bcc    => $::auth->assert('email_bcc', 'may fail'),

                                  FILES       => \%files,

                                  is_customer => $self->cv eq 'customer',

  );

  my $email_form  = delete $::form->{email_form};

  my %field_names = (to => 'email');

  $::form->{ $field_names{$_} // $_ } = $email_form->{$_} for keys %{ $email_form };

  # for Form::cleanup which may be called in Form::send_email

  $::form->{cwd}    = getcwd();

  $::form->{tmpdir} = $::lx_office_conf{paths}->{userspath};

  $::form->{media}  = 'email';

  if (($::form->{attachment_policy} // '') eq 'normal') {

    my $language;

    $language = SL::DB::Language->new(id => $::form->{print_options}->{language_id})->load if $::form->{print_options}->{language_id};

    my $pdf;

    my @errors = _create_pdf($self->order, \$pdf, {media      => $::form->{media},

                                                   format     => $::form->{print_options}->{format},

                                                   formname   => $::form->{print_options}->{formname},

                                                   language   => $language,

                                                   groupitems => $::form->{print_options}->{groupitems}});

    if (scalar @errors) {

      return $self->js->flash('error', t8('Conversion to PDF failed: #1', $errors[0]))->render($self);

    }

    my $sfile = SL::SessionFile::Random->new(mode => "w");

    $sfile->fh->print($pdf);

    $sfile->fh->close;

    $::form->{tmpfile} = $sfile->file_name;

    $::form->{tmpdir}  = $sfile->get_path; # for Form::cleanup which may be called in Form::send_email

  $::form->send_email(\%::myconfig, 'pdf');

  $intnotes   .= t8('To (email)') . ": " . $::form->{email}                                                           . "\n";

  $intnotes   .= t8('Cc')         . ": " . $::form->{cc}                                                              . "\n"    if $::form->{cc};

  $intnotes   .= t8('Bcc')        . ": " . $::form->{bcc}                                                             . "\n"    if $::form->{bcc};

  $intnotes   .= t8('Subject')    . ": " . $::form->{subject}                                                         . "\n\n";

  $intnotes   .= t8('Message')    . ": " . $::form->{message};

      ->flash('info', t8('The email has been sent.'))

sub _get_files_for_email_dialog {

  my ($self) = @_;

  my %files = map { ($_ => []) } qw(versions files vc_files part_files);

  return %files if !$::instance_conf->get_doc_storage;

  if ($self->order->id) {

    $files{versions} = [ SL::File->get_all_versions(object_id => $self->order->id,              object_type => $self->order->type, file_type => 'document') ];

    $files{files}    = [ SL::File->get_all(         object_id => $self->order->id,              object_type => $self->order->type, file_type => 'attachment') ];

    $files{vc_files} = [ SL::File->get_all(         object_id => $self->order->{$self->cv}->id, object_type => $self->cv,          file_type => 'attachment') ];

  }

  my @parts =

    uniq_by { $_->{id} }

    map {

      +{ id         => $_->part->id,

         partnumber => $_->part->partnumber }

    } @{$self->order->items_sorted};

  foreach my $part (@parts) {

    my @pfiles = SL::File->get_all(object_id => $part->{id}, object_type => 'part');

    push @{ $files{part_files} }, map { +{ %{ $_ }, partnumber => $part->{partnumber} } } @pfiles;

  }

  foreach my $key (keys %files) {

    $files{$key} = [ sort_by { lc $_->{db_file}->{file_name} } @{ $files{$key} } ];

  }

  return %files;

}

=item *

The language selected in print or email dialog is not saved when the order is saved.

  ns.setup_send_email_dialog = function() {

    kivi.SalesPurchase.show_all_print_options_elements();

    kivi.SalesPurchase.show_print_options_elements([ 'sendmode', 'media', 'copies', 'remove_draft' ], false);

    $('#print_options_form table').first().remove().appendTo('#email_form_print_options');

    var to_focus = $('#email_form_to').val() === '' ? 'to' : 'subject';

    $('#email_form_' + to_focus).focus();

  };

  ns.finish_send_email_dialog = function() {

    kivi.SalesPurchase.show_all_print_options_elements();

    $('#email_form_print_options table').first().remove().prependTo('#print_options_form');

    return true;

  };

    var id            = 'send_email_dialog';

      height: 600,

      title:  kivi.t8('Send email'),

      beforeClose: kivi.Order.finish_send_email_dialog,

      }

    kivi.Order.setup_send_email_dialog();

    data = data.concat($('[name^="email_form."]').serializeArray());

    data = data.concat($('[name^="print_options."]').serializeArray());