Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 9ef26511

Von Jan Büren vor mehr als 2 Jahren hinzugefügt

  • ID 9ef265110795d774e3a85223bb72e82b6c206f18
  • Vorgänger 091321b1
  • Nachfolger a734f686

Belegweise generische Absender-Adressen setzen

Unterschiede anzeigen:

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