honor type statement on keys

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@7313 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
lissav 2010-08-30 20:04:27 +00:00
parent f6b9fc6a5f
commit 9bea5c5075

View File

@ -558,7 +558,8 @@ sub get_datatype_string_db2 {
} else {
# if the column is a key
if (isAKey(\@{$descr->{keys}}, $col)) {
$ret = "VARCHAR(128) NOT NULL ";
$ret = $types->{$col};
$ret .= " NOT NULL ";
} else {
$ret = $types->{$col};
if ($ret eq "TEXT") { # text not in db2