X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDB%2FHelper%2FFlattenToForm.pm;h=1228acc87e4b1b20c4ba8a7acb1892cdfea8f55c;hb=0ebb8f829ac2d23b65e8d993c7d03aa0b172b637;hp=920bdf2e84123557602b62e93bf7db94596b1fdf;hpb=3defabe6d3011c83298d4415672ed5d32ccab95c;p=kivitendo-erp.git diff --git a/SL/DB/Helper/FlattenToForm.pm b/SL/DB/Helper/FlattenToForm.pm index 920bdf2e8..1228acc87 100644 --- a/SL/DB/Helper/FlattenToForm.pm +++ b/SL/DB/Helper/FlattenToForm.pm @@ -52,10 +52,8 @@ sub flatten_to_form { _copy($self->salesman, $form, 'salesman_', '', 0, map { $_->name } SL::DB::Employee->meta->columns) if _has($self, 'salesman_id'); _copy($self->acceptance_confirmed_by, $form, 'acceptance_confirmed_by_', '', 0, map { $_->name } SL::DB::Employee->meta->columns) if _has($self, 'acceptance_confirmed_by_id'); - if (_has($self, 'employee_id')) { - my $user = User->new(login => $self->employee->login); - $form->{"employee_$_"} = $user->{$_} for qw(tel email fax); - } + _handle_user_data($self, $form); + # company is employee and login independent $form->{"${_}_company"} = $::instance_conf->get_company for qw (employee salesman); @@ -92,7 +90,7 @@ sub flatten_to_form { _copy($item, $form, '', "_${idx}", 0, qw(description project_id ship serialnumber pricegroup_id ordnumber donumber cusordnumber unit subtotal longdescription price_factor_id marge_price_factor reqdate transdate active_price_source active_discount_source)); - _copy($item, $form, '', "_${idx}", $format_noround, qw(qty sellprice)); + _copy($item, $form, '', "_${idx}", $format_noround, qw(qty sellprice fxsellprice)); _copy($item, $form, '', "_${idx}", $format_amounts, qw(marge_total marge_percent lastcost)); _copy($item, $form, '', "_${idx}", $format_percent, qw(discount)); _copy($item->project, $form, 'project', "_${idx}", 0, qw(number description)) if _has($item, 'project_id'); @@ -170,4 +168,23 @@ sub _determine_cvar_validity { ); } +sub _handle_user_data { + my ($self, $form) = @_; + + foreach my $type (qw(employee salesman)) { + next if !_has($self, "${type}_id"); + + my $user = User->new(login => $self->$type->login); + $form->{"${type}_$_"} = $user->{$_} for qw(tel email fax signature); + + if ($self->$type->deleted) { + for my $key (grep { $_ =~ m{^deleted_} } SL::DB::Employee->meta->columns) { + $key =~ s{^deleted_}{}; + $form->{"${type}_${key}"} = $form->{"${type}_deleted_${key}"} + } + } + + } +} + 1;