From: ivan <ivan>
Date: Fri, 18 Aug 2006 10:18:13 +0000 (+0000)
Subject: even more skeleton debugging, ugh
X-Git-Tag: BEFORE_RT_3_4_5^2~11
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=a54563b7d5cbac55d89ddd1f11e6c9a12c46b6f1;p=freeside.git

even more skeleton debugging, ugh
---

diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index 59295f3ee..73afe2183 100644
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -540,6 +540,10 @@ sub _copy_skel {
 
     while ( my $row = $sel_sth->fetchrow_hashref ) {
 
+      warn "    selected row: ".
+           join(', ', map { "$_=".$row->{$_} } keys %$row ). "\n"
+        if $DEBUG > 2;
+
       my $statement =
         "INSERT INTO $child_table $ins_columns VALUES $placeholders";
       my $ins_sth =dbh->prepare($statement)