Revision 3886e8eb
Von Tamino Steinert vor fast 2 Jahren hinzugefügt
SL/DB/Order.pm | ||
---|---|---|
485 | 485 |
if ( $is_abbr_any->(qw(poso rqsq rqso)) ) { |
486 | 486 |
$current_oe_item->lastcost($source_item->sellprice); |
487 | 487 |
} |
488 |
$current_oe_item->{ RECORD_ITEM_ID() } = $_->{id}; |
|
489 |
$current_oe_item->{ RECORD_ITEM_TYPE_REF() } = ref($source_item); |
|
488 |
unless ($params{no_linked_records}) { |
|
489 |
$current_oe_item->{ RECORD_ITEM_ID() } = $_->{id}; |
|
490 |
$current_oe_item->{ RECORD_ITEM_TYPE_REF() } = ref($source_item); |
|
491 |
} |
|
490 | 492 |
$current_oe_item; |
491 | 493 |
} @{ $items }; |
492 | 494 |
|
... | ... | |
496 | 498 |
|
497 | 499 |
$order->items(\@items); |
498 | 500 |
|
499 |
$order->{ RECORD_ID() } = $source->{id}; |
|
500 |
$order->{ RECORD_TYPE_REF() } = ref($source); |
|
501 |
unless ($params{no_linked_records}) { |
|
502 |
$order->{ RECORD_ID() } = $source->{id}; |
|
503 |
$order->{ RECORD_TYPE_REF() } = ref($source); |
|
504 |
} |
|
501 | 505 |
|
502 | 506 |
return $order; |
503 | 507 |
} |
Auch abrufbar als: Unified diff
DB::Order: no_linked_records Flag zu new_from hinzugefügt