From 960253f3d34e0e782214b47cf4b71b3178360ffa Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Fri, 18 Aug 2006 11:52:13 +0000
Subject: [PATCH] alas, now try with recursion

---
 FS/FS/cust_main.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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"
-- 
2.11.0