Revision 1111ec6b
Von Tamino Steinert vor 5 Monaten hinzugefügt
| SL/Controller/DeliveryOrder.pm | ||
|---|---|---|
|
|
||
|
my $cv_method = $self->cv;
|
||
|
|
||
|
if (!$self->order->$cv_method) {
|
||
|
my $cv = $self->order->customervendor;
|
||
|
if (!$cv) {
|
||
|
return $self->js->flash('error',
|
||
|
$self->cv eq 'customer' ?
|
||
|
t8('Cannot send E-mail without customer given')
|
||
| ... | ... | |
|
}
|
||
|
|
||
|
my $email_form;
|
||
|
$email_form->{to} = $self->order->contact->cp_email if $self->order->contact;
|
||
|
$email_form->{to} ||= $self->order->$cv_method->email;
|
||
|
$email_form->{cc} = $self->order->$cv_method->cc;
|
||
|
$email_form->{bcc} = join ', ', grep $_, $self->order->$cv_method->bcc;
|
||
|
$email_form->{to} =
|
||
|
($self->order->contact ? $self->order->contact->cp_email : undef)
|
||
|
|| ($cv->is_customer ? $cv->delivery_order_mail : undef)
|
||
|
|| $cv->email;
|
||
|
$email_form->{cc} = $cv->cc;
|
||
|
$email_form->{bcc} = join ', ', grep $_, $cv->bcc;
|
||
|
# Todo: get addresses from shipto, if any
|
||
|
|
||
|
my $form = Form->new;
|
||
Auch abrufbar als: Unified diff
FIX: S:C:DeliveryOrder: Lieferschein-E-Mail-Adr. von Kunden vorbelegen