X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/6e1a7a2e06de426b553ada3aed39f28b4825d0ce..4493d1eb7845b7eba868f0a16ec2e623dcf1d591:/SL/Common.pm

diff --git a/SL/Common.pm b/SL/Common.pm
index bcaeb62c1..dfdf3c5d4 100644
--- a/SL/Common.pm
+++ b/SL/Common.pm
@@ -447,6 +447,13 @@ sub get_shipto_by_id {
 
   map { $form->{"${prefix}${_}"} = $ref->{$_} } keys %{ $ref } if $ref;
 
+  my $cvars = CVar->get_custom_variables(
+    dbh      => $dbh,
+    module   => 'ShipTo',
+    trans_id => $shipto_id,
+  );
+  $form->{"${prefix}shiptocvar_$_->{name}"} = $_->{value} for @{ $cvars };
+
   $dbh->disconnect();
 
   $main::lxdebug->leave_sub();