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

update setAttribsWhere with delimitcol

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@8609 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
lissav 2011-01-11 15:59:48 +00:00
parent 1e2c697419
commit 8b92d602bb
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1738,15 +1738,12 @@ sub setAttribsWhere
$query->finish();
my $xcatcfg =get_xcatcfg();
#update the rows
for my $col (keys %$elems)
{
if (($xcatcfg =~ /^DB2:/) || ($xcatcfg =~ /^Pg:/)) {
$cols = $cols . "\"$col\"" . " = ?,";
} else {
$cols = $cols . $col . " = ?,";
}
# delimit the columns of the table
my $delimitedcol = &delimitcol($col);
$cols = $cols . $delimitedcol . " = ?,";
push @bind, (($$elems{$col} =~ /NULL/) ? undef: $$elems{$col});
}
chop($cols);