From 34a349cae045864e0ddf4231eef5b01b3e833257 Mon Sep 17 00:00:00 2001
From: lissav <lissav@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Wed, 18 Aug 2010 15:06:17 +0000
Subject: [PATCH] add support for Foreign keys in Schema

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@7127 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 perl-xCAT/xCAT/Table.pm | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

diff --git a/perl-xCAT/xCAT/Table.pm b/perl-xCAT/xCAT/Table.pm
index 24d37e734..4ef579a05 100644
--- a/perl-xCAT/xCAT/Table.pm
+++ b/perl-xCAT/xCAT/Table.pm
@@ -456,6 +456,16 @@ sub buildcreatestmt
         }
         $retv .= ",\n  ";
     }
+    # if there are foreign keys
+    my $fkey=$descr->{foreignkeys};
+    if ($fkey) {
+
+      $retv .= "FOREIGN KEY ";
+
+      $retv .=  $fkey;  
+      $retv .=  ",\n  ";  
+    }
+    
     if ($retv =~ /PRIMARY KEY/) {
 	$retv =~ s/,\n  $/\n)/;
     } else {
@@ -471,9 +481,7 @@ sub buildcreatestmt
 	}
 	$retv =~ s/,$/)\n)/;
     }
-        #if ($xcatcfg =~ /^DB2:/) {  # for DB2 add tablespace
-	 #  $retv .= " IN XCATTBS16K";
-        #} 
+    $retv =~ s/,$/)\n)/;
 	#print "retv=$retv\n";
     return $retv; 
 }