From 44c2490342f14b64acbd9fce3bf7df8df4e64aff Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Fri, 18 Aug 2006 09:50:03 +0000
Subject: add debugging to _copy_skel to get some idea what's going on

---
 FS/FS/cust_main.pm | 4 ++++
 1 file changed, 4 insertions(+)

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;
-- 
cgit v1.2.1