[freeside-commits] freeside/FS/FS cust_main.pm,1.230,1.231

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail:/tmp/cvs-serv19455

Modified Files:
	cust_main.pm 
Log Message:
even more skeleton debugging, ugh

Index: cust_main.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_main.pm,v
retrieving revision 1.230
retrieving revision 1.231
diff -u -d -r1.230 -r1.231
--- cust_main.pm	18 Aug 2006 10:10:33 -0000	1.230
+++ cust_main.pm	18 Aug 2006 10:18:13 -0000	1.231
@@ -540,6 +540,10 @@
 
     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)