Revision e9c278f5
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->get_order_centric_linked_records
|
|
| 72 |
? $self->object->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');
|
| ... | ... | |
| 248 | 248 |
$::auth->assert('record_links');
|
| 249 | 249 |
} |
| 250 | 250 |
|
| 251 |
# internal |
|
| 252 |
|
|
| 253 |
sub get_order_centric_linked_records {
|
|
| 254 |
my ($self) = @_; |
|
| 255 |
|
|
| 256 |
my $all_linked_records = $self->object->linked_records(direction => 'from', recursive => 1); |
|
| 257 |
my $filtered_orders = [ grep { 'SL::DB::Order' eq ref $_ && $_->is_type('sales_order') } @$all_linked_records ];
|
|
| 258 |
|
|
| 259 |
# no orders no call to linked_records via batch mode |
|
| 260 |
# but instead return default list |
|
| 261 |
return $self->object->linked_records(direction => 'both', recursive => 1, save_path => 1) |
|
| 262 |
unless scalar @$filtered_orders; |
|
| 263 |
|
|
| 264 |
# we have a order, therefore get the tree view from the top (order) |
|
| 265 |
my $id_ref = [ map { $_->id } @$filtered_orders ];
|
|
| 266 |
my $linked_records = SL::DB::Order->new->linked_records(direction => 'to', recursive => 1, batch => $id_ref); |
|
| 267 |
push @{ $linked_records }, @$filtered_orders;
|
|
| 268 |
|
|
| 269 |
return $linked_records; |
|
| 270 |
} |
|
| 271 | 251 |
1; |
| 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); |
|
| 7 |
our @EXPORT = qw(linked_records link_to_record 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 {
|
|
| 399 |
my ($self) = @_; |
|
| 400 |
|
|
| 401 |
my $all_linked_records = $self->linked_records(direction => 'from', recursive => 1); |
|
| 402 |
my $filtered_orders = [ grep { 'SL::DB::Order' eq ref $_ && $_->is_type('sales_order') } @$all_linked_records ];
|
|
| 403 |
|
|
| 404 |
# no orders no call to linked_records via batch mode |
|
| 405 |
# but instead return default list |
|
| 406 |
return $self->linked_records(direction => 'both', recursive => 1, save_path => 1) |
|
| 407 |
unless scalar @$filtered_orders; |
|
| 408 |
|
|
| 409 |
# we have a order, therefore get the tree view from the top (order) |
|
| 410 |
my $id_ref = [ map { $_->id } @$filtered_orders ];
|
|
| 411 |
my $linked_records = SL::DB::Order->new->linked_records(direction => 'to', recursive => 1, batch => $id_ref); |
|
| 412 |
push @{ $linked_records }, @$filtered_orders;
|
|
| 413 |
|
|
| 414 |
return $linked_records; |
|
| 415 |
} |
|
| 416 |
|
|
| 398 | 417 |
1; |
| 399 | 418 |
|
| 400 | 419 |
__END__ |
Auch abrufbar als: Unified diff
Auftragzentrische verknüpfte Belege: Routine aus Controller in Helper verschoben