hydra: missing property

This commit is contained in:
Rob Vermaas 2010-10-13 12:35:34 +00:00
parent 398993f688
commit ef1efa80e4

View file

@ -104,6 +104,7 @@ sub updateMachine {
my $maxconcurrent = trim $c->request->params->{"maxconcurrent"}; my $maxconcurrent = trim $c->request->params->{"maxconcurrent"};
my $speedfactor = trim $c->request->params->{"speedfactor"}; my $speedfactor = trim $c->request->params->{"speedfactor"};
my $ssh_key = trim $c->request->params->{"ssh_key"}; my $ssh_key = trim $c->request->params->{"ssh_key"};
my $options = trim $c->request->params->{"options"};
my $systems = $c->request->params->{"systems"} ; my $systems = $c->request->params->{"systems"} ;
error($c, "Invalid or empty username.") if $username eq ""; error($c, "Invalid or empty username.") if $username eq "";
@ -116,6 +117,7 @@ sub updateMachine {
, maxconcurrent => $maxconcurrent , maxconcurrent => $maxconcurrent
, speedfactor => $speedfactor , speedfactor => $speedfactor
, ssh_key => $ssh_key , ssh_key => $ssh_key
, options => $options
}); });
$machine->buildmachinesystemtypes->delete_all; $machine->buildmachinesystemtypes->delete_all;
if(ref($systems) eq 'ARRAY') { if(ref($systems) eq 'ARRAY') {