Revision 08e12ce7
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