From: ivan Date: Fri, 18 Aug 2006 09:50:03 +0000 (+0000) Subject: add debugging to _copy_skel to get some idea what's going on X-Git-Tag: BEFORE_RT_3_4_5^2~15 X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=44c2490342f14b64acbd9fce3bf7df8df4e64aff;p=freeside.git add debugging to _copy_skel to get some idea what's going on --- 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;