projekt kivitendo

use Carp qw(croak);

use List::Util qw(first);

sub link_to_record_with_attachment {

  my ($self, $record, $attachment_or_id) = @_;

  if ($attachment_or_id ne '') {

    my $attachment = ref $attachment_or_id ?

        $attachment_or_id

      : first {$_->id == $attachment_or_id} @{$self->attachments_sorted};

    croak "Email journal attachment does not belong to this email journal"

      unless  $attachment && $attachment->email_journal_id == $self->id;

    $attachment->add_file_to_record($record);

  }

  $self->link_to_record($record);

}