Allow cancelling builds marked as busy

Note that if there are active build *steps*, this won't cancel them.
This commit is contained in:
Eelco Dolstra 2015-07-07 14:08:46 +02:00
parent 35b7c4f82b
commit 95c4294560

View file

@ -424,7 +424,7 @@ sub getTotalShares {
sub cancelBuilds($$) { sub cancelBuilds($$) {
my ($db, $builds) = @_; my ($db, $builds) = @_;
return txn_do($db, sub { return txn_do($db, sub {
$builds = $builds->search({ finished => 0, busy => 0 }); $builds = $builds->search({ finished => 0 });
my $n = $builds->count; my $n = $builds->count;
my $time = time(); my $time = time();
$builds->update( $builds->update(