From: ivan <ivan>
Date: Fri, 18 Aug 2006 11:40:34 +0000 (+0000)
Subject: fix the  explicitly specified primary keys
X-Git-Tag: BEFORE_RT_3_4_5^2~5
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=bde46a1e81ab59c0068399903c5efe30c9ffc618;p=freeside.git

fix the  explicitly specified primary keys
---

diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index 07b2c1157..e2bc95f70 100644
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -512,7 +512,7 @@ sub _copy_skel {
 
     my $child_table;
     my $child_pkey = '';
-    if ( $child_table =~ /^(\w+)\.(\w+)$/ ) {
+    if ( $child_table_def =~ /^(\w+)\.(\w+)$/ ) {
       ( $child_table, $child_pkey ) = ( $1, $2 );
     } else {
       $child_table = $child_table_def;