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 |
|
SL/DB/Invoice.pm | ||
---|---|---|
166 | 166 |
$args{quodate} = $source->transdate; |
167 | 167 |
} |
168 | 168 |
|
169 |
my $invoice = $class->new(%args, %{ $params{attributes} || {} }); |
|
169 |
my $invoice = $class->new(%args); |
|
170 |
$invoice->assign_attributes(%{ $params{attributes} }) if $params{attributes}; |
|
170 | 171 |
my $items = delete($params{items}) || $source->items_sorted; |
171 | 172 |
my %item_parents; |
172 | 173 |
|
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.