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

fix mysql calls in setNodesAtt

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@6954 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
lissav 2010-08-03 14:12:05 +00:00
parent 0447f6af98
commit 9d7014c2ca
1 changed files with 21 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1800,10 +1800,14 @@ sub setNodesAttribs {
my %insertnodes=();
my $qstring;
#sort nodes into inserts and updates
if ($xcatcfg =~ /^DB2:/){
$qstring = "SELECT * FROM " . $self->{tabname} . " WHERE \"$nodekey\" LIKE (";
if ($xcatcfg =~ /^mysql:/) { #for mysql
$qstring = "SELECT * FROM " . $self->{tabname} . " WHERE \`$nodekey\` in (";
} else {
$qstring = "SELECT * FROM " . $self->{tabname} . " WHERE $nodekey in (";
if ($xcatcfg =~ /^DB2:/){
$qstring = "SELECT * FROM " . $self->{tabname} . " WHERE \"$nodekey\" LIKE (";
} else {
$qstring = "SELECT * FROM " . $self->{tabname} . " WHERE $nodekey in (";
}
}
$qstring .= '?, ' x scalar(@currnodes);
$qstring =~ s/, $/)/;
@ -1850,19 +1854,27 @@ sub setNodesAttribs {
if (not $upsth and keys %updatenodes) { #prepare an insert statement since one will be needed
my $upstring = "UPDATE ".$self->{tabname}." set ";
foreach my $col (@orderedcols) { #try aggregating requests. Could also see about single prepare, multiple executes instead
if ($xcatcfg =~ /^DB2:/){
$upstring .= "\"$col\" = ?, ";
if ($xcatcfg =~ /^mysql:/) { #for mysql
$upstring .= "\`$col\` = ?, ";
} else {
$upstring .= "$col = ?, ";
if ($xcatcfg =~ /^DB2:/){
$upstring .= "\"$col\" = ?, ";
} else {
$upstring .= "$col = ?, ";
}
}
}
if (grep { $_ eq $nodekey } @orderedcols) {
$upstring =~ s/, \z//;
} else {
if ($xcatcfg =~ /^DB2:/){
$upstring =~ s/, \z/ where \"$nodekey\" = ?/;
if ($xcatcfg =~ /^mysql:/) { #for mysql
$upstring =~ s/, \z/ where \`$nodekey\` = ?/;
} else {
$upstring =~ s/, \z/ where $nodekey = ?/;
if ($xcatcfg =~ /^DB2:/){
$upstring =~ s/, \z/ where \"$nodekey\" = ?/;
} else {
$upstring =~ s/, \z/ where $nodekey = ?/;
}
}
}
$upsth = $self->{dbh}->prepare($upstring);