Revision 9ef26511
Von Jan Büren vor mehr als 2 Jahren hinzugefügt
| SL/Mailer.pm | ||
|---|---|---|
|
sales_delivery_order => 'delivery_orders',
|
||
|
dunning => 'dunning',
|
||
|
);
|
||
|
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 },
|
||
|
);
|
||
|
|
||
|
|
||
|
sub new {
|
||
|
my ($type, %params) = @_;
|
||
| ... | ... | |
|
|
||
|
return $error;
|
||
|
}
|
||
|
|
||
|
$self->_default_from; # set from for records if configured in client config
|
||
|
# Set defaults & headers
|
||
|
$self->{charset} = 'UTF-8';
|
||
|
$self->{content_type} ||= "text/plain";
|
||
| ... | ... | |
|
}
|
||
|
}
|
||
|
|
||
|
|
||
|
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;
|
||
|
}
|
||
|
|
||
|
1;
|
||
|
|
||
|
|
||
Auch abrufbar als: Unified diff
Belegweise generische Absender-Adressen setzen