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

fixed problem for PostgreSQL when changing primary keys for a table

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@4819 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
linggao
2009-12-17 17:01:08 +00:00
parent 6426ca1e56
commit 6394de13d9
1 changed files with 9 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -864,15 +864,15 @@ sub updateschema
xCAT::MsgUtils->message("S", "Error changing the keys for table " . $self->{tabname} .":" . $self->{dbh}->errstr);
}
} else { #for the rest, recreate the table
print "need to change keys\n";
#print "need to change keys\n";
my $btn=$tn . "_xcatbackup";
#remove the backup table just in case;
my $str="DROP TABLE $btn";
$self->{dbh}->do($str);
#my $str="DROP TABLE $btn";
#$self->{dbh}->do($str);
#rename the table name to name_xcatbackup
$str = "ALTER TABLE $tn RENAME TO $btn";
my $str = "ALTER TABLE $tn RENAME TO $btn";
$self->{dbh}->do($str);
if ($self->{dbh}->errstr) {
xCAT::MsgUtils->message("S", "Error renaming the table from $tn to $btn:" . $self->{dbh}->errstr);
@@ -898,6 +898,11 @@ sub updateschema
$str = "DROP TABLE $btn";
$self->{dbh}->do($str);
}
if (!$self->{dbh}->{AutoCommit}) {
$self->{dbh}->commit;
}
}
}
}