Revision 6473dcb1
Von Moritz Bunkus vor mehr als 10 Jahren hinzugefügt
| SL/DB/DeliveryOrder.pm | ||
|---|---|---|
| 139 | 139 |
$args{shipto_id} = $source->shipto_id;
|
| 140 | 140 |
} |
| 141 | 141 |
|
| 142 |
my $delivery_order = $class->new(%args, %{ $params{attributes} || {} });
|
|
| 142 |
my $delivery_order = $class->new(%args); |
|
| 143 |
$delivery_order->assign_attributes(%{ $params{attributes} }) if $params{attributes};
|
|
| 143 | 144 |
my $items = delete($params{items}) || $source->items_sorted;
|
| 144 | 145 |
my %item_parents; |
| 145 | 146 |
|
Auch abrufbar als: Unified diff
RDBO {Invoice,DeliveryOrder}->new_from Attribute nachträglich zuweisen
Macht man die Vermischung ->new(%args, %attributes), so ist die
Reihenfolge, wann welche aus %args und welche aus %attributes genommen
werden, aufgrund von Perls beliebiger Hash-Reihenfolge nicht
garantiert. Also zuerst nur die berechneten aus %args zuweisen und
danach die vom Caller bereitgestellten in %attributes.