pass through the explicitly specified pkeys

diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index 75ad1ef..fd66f14 100644 (file)
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -584,7 +584,7 @@ sub _copy_skel {
   
       # don't drink soap!  recurse!  recurse!  okay!
       my $error =
-        _copy_skel( $child_table,
+        _copy_skel( $child_table_def,
                     $row->{$child_pkey}, #sourceid
                     $insertid, #destid
                     %{ $child_tables{$child_table_def} },