projekt kivitendo

  my ($self) = @_;

  # check for custom/overloaded types and ids (form != controller)

  my $record_id   = $self->{record_id}   || $::form->{id};

  # you may send mails for unsaved objects (no record_id => unlinkable case)

sub _default_from {

  my ($self) = @_;

  my $record_email = exists $type_to_email{$record_type} ? $type_to_email{$record_type}->() : undef;

  $self->{from}    = $record_email if $record_email;

}