Revision 738843f6
Von Tamino Steinert vor etwa 1 Jahr hinzugefügt
| SL/DB/Order.pm | ||
|---|---|---|
| 510 | 510 |
if ( $is_abbr_any->(qw(poso rqsq rqso pqisq pqiso)) ) {
|
| 511 | 511 |
$current_oe_item->lastcost($source_item->sellprice); |
| 512 | 512 |
} |
| 513 |
$current_oe_item->{ RECORD_ITEM_ID() } = $_->{id};
|
|
| 514 |
$current_oe_item->{ RECORD_ITEM_TYPE_REF() } = ref($source_item);
|
|
| 513 |
unless ($params{no_linked_records}) {
|
|
| 514 |
$current_oe_item->{ RECORD_ITEM_ID() } = $_->{id};
|
|
| 515 |
$current_oe_item->{ RECORD_ITEM_TYPE_REF() } = ref($source_item);
|
|
| 516 |
} |
|
| 515 | 517 |
$current_oe_item; |
| 516 | 518 |
} @{ $items };
|
| 517 | 519 |
|
| ... | ... | |
| 521 | 523 |
|
| 522 | 524 |
$order->items(\@items); |
| 523 | 525 |
|
| 524 |
$order->{ RECORD_ID() } = $source->{id};
|
|
| 525 |
$order->{ RECORD_TYPE_REF() } = ref($source);
|
|
| 526 |
unless ($params{no_linked_records}) {
|
|
| 527 |
$order->{ RECORD_ID() } = $source->{id};
|
|
| 528 |
$order->{ RECORD_TYPE_REF() } = ref($source);
|
|
| 529 |
} |
|
| 526 | 530 |
|
| 527 | 531 |
return $order; |
| 528 | 532 |
} |
Auch abrufbar als: Unified diff
DB::Order: no_linked_records Flag zu new_from hinzugefügt