fix bad problem in creating tables in db2- I introduces

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@7022 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
2010-08-10 13:29:46 +00:00 · 2010-08-10 13:29:46 +00:00 · b1c06a86ed
commit b1c06a86ed
parent 39dc49a0c8
1 changed files with 4 additions and 0 deletions
--- a/perl-xCAT/xCAT/Table.pm
+++ b/perl-xCAT/xCAT/Table.pm
@ -565,6 +565,10 @@ sub get_datatype_string_db2 {
 	    }
 	  }
 	}
+    } else {  # type not specifically define
+          if (isAKey(\@{$descr->{keys}}, $col)) { 
+            $ret = "VARCHAR(128) NOT NULL ";  
+          }
    }
    if ($col eq "disable") {