$idx++;
- $form->{"partsgroup_${idx}"} = $item->part->partsgroup->partsgroup if _has($item->part, 'partsgroup_id');
+ $form->{"std_warehouse_${idx}"} = $item->part->warehouse->description if _has($item->part, 'warehouse_id');
+ $form->{"std_bin_${idx}"} = $item->part->bin->description if _has($item->part, 'bin_id');
+ $form->{"partsgroup_${idx}"} = $item->part->partsgroup->partsgroup if _has($item->part, 'partsgroup_id');
_copy($item, $form, "${items_name}_", "_${idx}", 0, qw(id)) if $items_name;
# TODO: is part_type correct here? Do we need to set part_type as default?
_copy($item->part, $form, '', "_${idx}", 0, qw(id partnumber weight part_type));
}
_copy_custom_variables($self, $form, 'vc_cvar_', '', $cvar_validity{vc});
+ _copy_custom_variables($self->contact, $form, 'cp_cvar_', '') if $self->contact;
return $self;
}
sub _copy_custom_variables {
my ($src, $form, $prefix, $postfix, $cvar_validity) = @_;
- my $obj = (any { ref($src) eq $_ } qw(SL::DB::OrderItem SL::DB::DeliveryOrderItem SL::DB::InvoiceItem))
+ my $obj = (any { ref($src) eq $_ } qw(SL::DB::OrderItem SL::DB::DeliveryOrderItem SL::DB::InvoiceItem SL::DB::Contact))
? $src
: $src->customervendor;