Some fixes for WS PUT operations

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@14867 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
jbjohnso 2013-01-11 21:21:05 +00:00
parent 5ecab2d703
commit 133551dd07

View File

@ -1306,6 +1306,7 @@ sub tablesHandler {
}
elsif (isPut() || isPatch()) {
my $condition = $q->param('condition');
my @vals;
if (!defined $condition) {
foreach my $put (@{$queryhash{'putData'}}) {
my ($key, $value) = split(/=/, $put, 2);
@ -1313,6 +1314,12 @@ sub tablesHandler {
$condition = $value;
}
}
foreach my $put (@{$queryhash{'putData'}}) {
my ($key, $value) = split(/=/, $put, 2);
if ($key eq 'value') {
push(@vals, $value);
}
}
}
if (!defined $table || !defined $condition) {
@ -1337,8 +1344,13 @@ sub tablesHandler {
}
else {
push @args, $condition;
for ($q->param('value')) {
push @args, "$table.$_";
if ($q->param('value')) {
for ($q->param('value')) {
push @args, "$table.$_";
}
}
else {
@args = (@args, @vals);
}
}
}