projekt kivitendo

use SL::DB::EmailJournal;

use SL::DB::EmailJournalAttachment;

sub action_add_from_email_journal {

  my ($self) = @_;

  my $email_journal_id    = $::form->{from_id};

  my $email_attachment_id = $::form->{email_attachment_id};

  $self->{converted_from_email_journal_id} = $email_journal_id;

  $self->{email_attachment_id}             = $email_attachment_id;

  $self->action_add();

}

    if ($::form->{converted_from_email_journal_id}) {

      my $email_journal_id = $::form->{converted_from_email_journal_id};

      my $src = SL::DB::EmailJournal->new(id => $email_journal_id)->load;

      $src->link_to_record($self->order);

      $src->hard_link_to_record($self->order);

    }

    if ($::form->{email_attachment_id}) {

      my $email_attachment_id = $::form->{email_attachment_id};

      my $attachment = SL::DB::EmailJournalAttachment->new(id => $email_attachment_id)->load;

      $attachment->add_file_to_record($self->order);

    }