X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/3f0ed511a589aca9642391108a960ef4e8a6286d..47da14db313eaeb6cd2d260dc60e1c56a9437efc:/SL/DB/Shipto.pm

diff --git a/SL/DB/Shipto.pm b/SL/DB/Shipto.pm
index a0580e37f..99a4036a9 100644
--- a/SL/DB/Shipto.pm
+++ b/SL/DB/Shipto.pm
@@ -60,7 +60,8 @@ sub clone {
      grep { !m{^ (?: itime | mtime | shipto_id | trans_id ) $}x }
      map  { $_->name }
      @{ $self->meta->columns }),
-    module => $module,
+    module           => $module,
+    custom_variables => [ map { $_->clone_and_reset } @{ $self->custom_variables } ],
   );
 
   return $new_shipto;