Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision eff10782

Von Tamino Steinert vor fast 2 Jahren hinzugefügt

  • ID eff10782c9dc11676d08bc81df2df2166d0cded1
  • Vorgänger dd9a78c5
  • Nachfolger 9b5b900b

Workflow: order ↔ reclamation

Unterschiede anzeigen:

SL/DB/ReclamationItem.pm
53 53 
  unless (any {ref($source) eq $_}
54 54 
    qw(
55 55 
      SL::DB::ReclamationItem
56 
      SL::DB::OrderItem
56 57 
    )
57 58 
  ) {
58 59 
    croak("Unsupported source object type '" . ref($source) . "'");
......
70 71 
      unit
71 72 
    );
72 73 
    $item_args{custom_variables} = \@custom_variables;
74 
  } elsif (ref($source) eq 'SL::DB::OrderItem') {
75 
    map { $item_args{$_} = $source->$_ } qw(
76 
      active_discount_source active_price_source base_qty description discount
77 
      lastcost longdescription parts_id position price_factor price_factor_id
78 
      pricegroup_id project_id qty reqdate sellprice serialnumber unit
79 
    );
80 
    $item_args{custom_variables} = \@custom_variables;
73 81 
  }
74 82 

  		




  75
  83
  
    
  my $item = $class->new(%item_args);


  		












Auch abrufbar als:  Unified diff