projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Term::ReadLine::Perl::Bind in Console nicht nutzen
[kivitendo-erp.git]
/
SL
/
DB
/
DeliveryOrder.pm
diff --git
a/SL/DB/DeliveryOrder.pm
b/SL/DB/DeliveryOrder.pm
index
75eab64
..
0602485
100644
(file)
--- a/
SL/DB/DeliveryOrder.pm
+++ b/
SL/DB/DeliveryOrder.pm
@@
-139,7
+139,8
@@
sub new_from {
$args{shipto_id} = $source->shipto_id;
}
$args{shipto_id} = $source->shipto_id;
}
- my $delivery_order = $class->new(%args, %{ $params{attributes} || {} });
+ my $delivery_order = $class->new(%args);
+ $delivery_order->assign_attributes(%{ $params{attributes} }) if $params{attributes};
my $items = delete($params{items}) || $source->items_sorted;
my %item_parents;
my $items = delete($params{items}) || $source->items_sorted;
my %item_parents;