From: ivan <ivan>
Date: Fri, 18 Aug 2006 11:52:13 +0000 (+0000)
Subject: alas, now try with recursion
X-Git-Tag: BEFORE_FINAL_MASONIZE~14
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=960253f3d34e0e782214b47cf4b71b3178360ffa

alas, now try with recursion
---

diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index e2bc95f70..75ad1ef5c 100644
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -523,7 +523,7 @@ sub _copy_skel {
     }
 
     my $sequence = '';
-    if ( keys %{ $child_tables{$child_table} } ) {
+    if ( keys %{ $child_tables{$child_table_def} } ) {
 
       return "$child_table has no primary key".
              " (run dbdef-create or try specifying it?)\n"