Revision 60852f02
Von Bernd Bleßmann vor 5 Monaten hinzugefügt
SL/Controller/DeliveryOrder.pm | ||
---|---|---|
500 | 500 |
$::form->{$_} = $::form->{print_options}->{$_} for keys %{ $::form->{print_options} }; |
501 | 501 |
$::form->{media} = 'email'; |
502 | 502 |
|
503 |
if (($::form->{attachment_policy} // '') !~ m{^(?:old_file|no_file)$}) { |
|
503 |
$::form->{attachment_policy} //= ''; |
|
504 |
|
|
505 |
# Is an old file version available? |
|
506 |
my $attfile; |
|
507 |
if ($::form->{attachment_policy} eq 'old_file') { |
|
508 |
$attfile = SL::File->get_all(object_id => $self->order->id, |
|
509 |
object_type => $::form->{formname}, |
|
510 |
file_type => 'document', |
|
511 |
print_variant => $::form->{formname}); |
|
512 |
} |
|
513 |
|
|
514 |
if ($::form->{attachment_policy} ne 'no_file' && !($::form->{attachment_policy} eq 'old_file' && $attfile)) { |
|
504 | 515 |
my $pdf; |
505 | 516 |
my @errors = generate_pdf($self->order, \$pdf, { |
506 | 517 |
media => $::form->{media}, |
Auch abrufbar als: Unified diff
Lieferschein-Controller: Email/DMS falls kein Dokument vorhanden, eines erstellen, …
… wenn die Policy sagt, dass der letzte Ausdruck mitgeschickt werden soll
siehe auch: 67a645ce8de654ab8f0b4b0dfd7b91040a85716f
"Auftrags-Controller: … "