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.