projekt kivitendo

my %type_to_email = (

  sales_quotation         => sub { $::instance_conf->get_email_sender_sales_quotation         },

  request_quotation       => sub { $::instance_conf->get_email_sender_request_quotation       },

  sales_order             => sub { $::instance_conf->get_email_sender_sales_order             },

  purchase_order          => sub { $::instance_conf->get_email_sender_purchase_order          },

  invoice                 => sub { $::instance_conf->get_email_sender_invoice                 },

  credit_note             => sub { $::instance_conf->get_email_sender_invoice                 },

  purchase_invoice        => sub { $::instance_conf->get_email_sender_purchase_invoice        },

  letter                  => sub { $::instance_conf->get_email_sender_letter                  },

  purchase_delivery_order => sub { $::instance_conf->get_email_sender_purchase_delivery_order },

  sales_delivery_order    => sub { $::instance_conf->get_email_sender_sales_delivery_order    },

  dunning                 => sub { $::instance_conf->get_email_sender_dunning                 },

);

  $self->_default_from;  # set from for records if configured in client config

sub _default_from {

  my ($self) = @_;

  my $record_type  = $self->{record_type} || $::form->{type} || $self->{driver}{form}{formname};

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

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

}