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

fix add columns for db2

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@7320 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
lissav 2010-08-31 13:57:24 +00:00
parent 2487d58bd7
commit b76b8f87a5
1 changed files with 19 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -862,7 +862,11 @@ sub new
=head3 updateschema
Description: Alters table schema
Description: Alters table info in the database based on Schema changes
Handles adding attributes
Handles removing attributes but does not really remove them
from the database.
Handles adding keys
Arguments: Hash containing Database and Table Handle and schema
@ -976,18 +980,27 @@ sub updateschema
} else{
$datatype=get_datatype_string($dcol, $xcatcfg, $types);
}
if ($datatype eq "TEXT") {
if (isAKey(\@{$descr->{keys}}, $dcol)) { # keys
$datatype = "VARCHAR(128) ";
}
if ($datatype eq "TEXT") { # keys cannot be TEXT
if (isAKey(\@{$descr->{keys}}, $dcol)) { # keys
$datatype = "VARCHAR(128) ";
}
}
if (grep /^$dcol$/, @{$descr->{required}})
{
$datatype .= " NOT NULL";
}
my $tmpcol=$dcol; # for sqlite
if ($xcatcfg =~ /^DB2:/){
$tmpcol="\"$dcol\"";
} else {
if ($xcatcfg =~ /^mysql:/) {
$tmpcol="\`$dcol\`";
}
}
my $stmt =
"ALTER TABLE " . $self->{tabname} . " ADD $dcol $datatype";
"ALTER TABLE " . $self->{tabname} . " ADD $tmpcol $datatype";
$self->{dbh}->do($stmt);
}
}