CVar: Shipto-CVars beim Clonen mit clonen

diff --git a/SL/DB/Shipto.pm b/SL/DB/Shipto.pm
index a0580e37f3c8cd2abe3b319563bbba1a49726851..99a4036a9b8a7c6a9e9cb73e60a2c7d739e46426 100644 (file)
--- 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;