Revision c1808a62
Von Tamino Steinert vor mehr als 2 Jahren hinzugefügt
SL/DB/ReclamationItem.pm | ||
---|---|---|
unless (any {ref($source) eq $_}
|
||
qw(
|
||
SL::DB::ReclamationItem
|
||
SL::DB::OrderItem
|
||
)
|
||
) {
|
||
croak("Unsupported source object type '" . ref($source) . "'");
|
||
... | ... | |
unit
|
||
);
|
||
$item_args{custom_variables} = \@custom_variables;
|
||
} elsif (ref($source) eq 'SL::DB::OrderItem') {
|
||
map { $item_args{$_} = $source->$_ } qw(
|
||
active_discount_source active_price_source base_qty description discount
|
||
lastcost longdescription parts_id position price_factor price_factor_id
|
||
pricegroup_id project_id qty reqdate sellprice serialnumber unit
|
||
);
|
||
$item_args{custom_variables} = \@custom_variables;
|
||
}
|
||
|
||
my $item = $class->new(%item_args);
|
Auch abrufbar als: Unified diff
Workflow: order ↔ reclamation