[freeside-commits] freeside/FS/FS cust_main.pm,1.226,1.227

Ivan,,, ivan at wavetail.420.am
Fri Aug 18 02:50:06 PDT 2006


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

Modified Files:
	cust_main.pm 
Log Message:
add debugging to _copy_skel to get some idea what's going on

Index: cust_main.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_main.pm,v
retrieving revision 1.226
retrieving revision 1.227
diff -u -d -r1.226 -r1.227
--- cust_main.pm	18 Aug 2006 08:33:47 -0000	1.226
+++ cust_main.pm	18 Aug 2006 09:50:03 -0000	1.227
@@ -499,6 +499,10 @@
     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;



More information about the freeside-commits mailing list