arif/xcat-core
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

fix setting of types for attributes to invalid types for DB2 as much as possible for now

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@6978 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
lissav 2010-08-04 14:17:31 +00:00
parent b646e85284
commit 5f21467bca
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
perl-xCAT/xCAT/Table.pm
View File

@ -547,15 +547,21 @@ sub get_datatype_string_db2 {
my $types=shift; #types field (eventlog)
my $tablename=shift; # tablename
my $descr=shift; # table schema
my $typedefined=0;
my $ret = "varchar(512)"; # default for most attributes
if (($types) && ($types->{$col})) {
if ($types->{$col} =~ /INTEGER AUTO_INCREMENT/) {
$ret = "INTEGER GENERATED ALWAYS AS IDENTITY";
} else {
# if the column is a key
if (isAKey(\@{$descr->{keys}}, $col)) {
$ret = "VARCHAR(128) NOT NULL ";
} else {
$ret = $types->{$col};
if ($ret eq "TEXT") { # text not in db2
$ret = "VARCHAR(512)";
}
}
}
$typedefined=1;
}
if ($col eq "disable") {
@ -565,12 +571,6 @@ sub get_datatype_string_db2 {
$ret = "varchar(4098)";
}
# if the column is a key and not already defined
if (isAKey(\@{$descr->{keys}}, $col)) {
if ($typedefined == 0) {
$ret = "VARCHAR(128) NOT NULL ";
}
}
return $ret;
}