Commit e1e60cfc authored by Leigh B. Stoller's avatar Leigh B. Stoller

Add a utility method to set/clr the lockdown bit on an experiment.

parent 564d96d5
......@@ -3692,5 +3692,20 @@ sub HasGeniNodes($)
return $query_result->num_rows;
}
#
# Set/Unset the lockdown bit.
#
sub LockDown($$)
{
my ($self, $yesno) = @_;
my $idx = $self->idx();
my $lockdown = ($yesno ? 1 : 0);
DBQueryWarn("update experiments set lockdown=$lockdown where idx=$idx")
or return -1;
return 0;
}
# _Always_ make sure that this 1 is at the end of the file...
1;
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment