Revision 3886e8eb
Von Tamino Steinert vor etwa 2 Jahren hinzugefügt
| SL/DB/Order.pm | ||
|---|---|---|
|
if ( $is_abbr_any->(qw(poso rqsq rqso)) ) {
|
||
|
$current_oe_item->lastcost($source_item->sellprice);
|
||
|
}
|
||
|
$current_oe_item->{ RECORD_ITEM_ID() } = $_->{id};
|
||
|
$current_oe_item->{ RECORD_ITEM_TYPE_REF() } = ref($source_item);
|
||
|
unless ($params{no_linked_records}) {
|
||
|
$current_oe_item->{ RECORD_ITEM_ID() } = $_->{id};
|
||
|
$current_oe_item->{ RECORD_ITEM_TYPE_REF() } = ref($source_item);
|
||
|
}
|
||
|
$current_oe_item;
|
||
|
} @{ $items };
|
||
|
|
||
| ... | ... | |
|
|
||
|
$order->items(\@items);
|
||
|
|
||
|
$order->{ RECORD_ID() } = $source->{id};
|
||
|
$order->{ RECORD_TYPE_REF() } = ref($source);
|
||
|
unless ($params{no_linked_records}) {
|
||
|
$order->{ RECORD_ID() } = $source->{id};
|
||
|
$order->{ RECORD_TYPE_REF() } = ref($source);
|
||
|
}
|
||
|
|
||
|
return $order;
|
||
|
}
|
||
Auch abrufbar als: Unified diff
DB::Order: no_linked_records Flag zu new_from hinzugefügt