Revision 4493d1eb
Von Moritz Bunkus vor mehr als 8 Jahren hinzugefügt
| bin/mozilla/oe.pl | ||
|---|---|---|
| 473 | 473 |
if ($form->{CFDD_shipto} && $form->{CFDD_shipto_id} ) {
|
| 474 | 474 |
$form->{shipto_id} = $form->{CFDD_shipto_id};
|
| 475 | 475 |
} |
| 476 |
|
|
| 477 |
push @custom_hiddens, map { "shiptocvar_" . $_->name } @{ SL::DB::Manager::CustomVariableConfig->get_all(where => [ module => 'ShipTo' ]) };
|
|
| 478 |
|
|
| 476 | 479 |
$TMPL_VAR{HIDDENS} = [ map { name => $_, value => $form->{$_} },
|
| 477 | 480 |
qw(id action type vc formname media format proforma queued printed emailed |
| 478 | 481 |
title creditlimit creditremaining tradediscount business |
| ... | ... | |
| 1731 | 1734 |
return; |
| 1732 | 1735 |
} |
| 1733 | 1736 |
|
| 1737 |
my $cvars = SL::DB::Shipto->new->cvars_by_config; |
|
| 1738 |
|
|
| 1734 | 1739 |
if ($form->{shipto_id}) {
|
| 1735 | 1740 |
Common->get_shipto_by_id(\%myconfig, $form, $form->{shipto_id}, "CFDD_");
|
| 1736 | 1741 |
|
| ... | ... | |
| 1738 | 1743 |
map { $form->{"CFDD_${_}"} = $form->{$_ } } grep /^shipto/, keys %{ $form };
|
| 1739 | 1744 |
} |
| 1740 | 1745 |
|
| 1746 |
$_->value($::form->{"CFDD_shiptocvar_" . $_->config->name}) for @{ $cvars };
|
|
| 1747 |
|
|
| 1741 | 1748 |
delete $form->{action};
|
| 1742 | 1749 |
$form->{VARIABLES} = [ map { { "key" => $_, "value" => $form->{$_} } } grep { ($_ ne 'login') && ($_ ne 'password') && (ref $_ eq "") } keys %{ $form } ];
|
| 1743 | 1750 |
|
| 1744 | 1751 |
$form->header(); |
| 1745 |
print $form->parse_html_template("oe/check_for_direct_delivery");
|
|
| 1752 |
print $form->parse_html_template("oe/check_for_direct_delivery", { cvars => $cvars });
|
|
| 1746 | 1753 |
|
| 1747 | 1754 |
$main::lxdebug->leave_sub(); |
| 1748 | 1755 |
|
Auch abrufbar als: Unified diff
CVars: Lieferadressen-CVars bei Ein-/Verkaufsbelegen benutzen können