Revision 44442c75
Von Tamino Steinert vor mehr als 1 Jahr 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