diff options
| -rw-r--r-- | FS/FS/cust_main.pm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm index f9d7be1c8..2617d10b0 100644 --- a/FS/FS/cust_main.pm +++ b/FS/FS/cust_main.pm @@ -499,6 +499,10 @@ sub _copy_skel { or return "$table has no primary key". " (or do you need to run dbdef-create?)"; + warn " _copy_skel: $table.$primary_key $sourceid to $destid for ". + join (', ', keys %child_tables). "\n" + if $DEBUG > 2; + foreach my $child_table ( keys %child_tables ) { my $child_pkey = dbdef->table($child_table)->primary_key; |