Revision d51907d6
Von Bernd Bleßmann vor etwa 2 Jahren hinzugefügt
| SL/Controller/RecordLinks.pm | ||
|---|---|---|
| 69 | 69 |
|
| 70 | 70 |
eval {
|
| 71 | 71 |
my $linked_records = ($::instance_conf->get_always_record_links_from_order && ref $self->object ne 'SL::DB::Order') |
| 72 |
? $self->object->order_centric_linked_records() |
|
| 72 |
? $self->object->sales_order_centric_linked_records()
|
|
| 73 | 73 |
: $self->object->linked_records(direction => 'both', recursive => 1, save_path => 1); |
| 74 | 74 |
|
| 75 | 75 |
push @{ $linked_records }, $self->object->sepa_export_items if $self->object->can('sepa_export_items');
|
| SL/DB/Helper/LinkedRecords.pm | ||
|---|---|---|
| 4 | 4 |
|
| 5 | 5 |
require Exporter; |
| 6 | 6 |
our @ISA = qw(Exporter); |
| 7 |
our @EXPORT = qw(linked_records link_to_record order_centric_linked_records); |
|
| 7 |
our @EXPORT = qw(linked_records link_to_record sales_order_centric_linked_records);
|
|
| 8 | 8 |
|
| 9 | 9 |
use Carp; |
| 10 | 10 |
use List::MoreUtils qw(any); |
| ... | ... | |
| 395 | 395 |
return \@records; |
| 396 | 396 |
} |
| 397 | 397 |
|
| 398 |
sub order_centric_linked_records {
|
|
| 398 |
sub sales_order_centric_linked_records {
|
|
| 399 | 399 |
my ($self) = @_; |
| 400 | 400 |
|
| 401 | 401 |
my $all_linked_records = $self->linked_records(direction => 'from', recursive => 1); |
Auch abrufbar als: Unified diff
Auftragzentrische verknüpfte Belege: Funktionsnamen deutlicher (Verkaufsaufträge)