Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision c1808a62

Von Tamino Steinert vor mehr als 2 Jahren hinzugefügt

  • ID c1808a62515e52f14dd7ad04439d2c7623951eb2
  • Vorgänger 14b40469
  • Nachfolger 7ac17a23

Workflow: order ↔ reclamation

Unterschiede anzeigen:

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