my $time = time();
    $c->model('DB::Builds')->search(

    my $builds = $c->model('DB::Builds')->search(

        }, {})
        ->update({ finished => 1, buildstatus => 4, starttime => $time, stoptime => $time });

        });
    my $n = cancelBuilds($c->model('DB')->schema, $builds);
    $c->flash->{successMsg} = "$n builds have been cancelled.";

    $c->stash->{flashMsg} = $c->flash->{buildMsg};

    $c->flash->{buildMsg} = "Build has been restarted.";

    $c->flash->{successMsg} = "Build has been restarted.";

    txn_do($c->model('DB')->schema, sub {
        error($c, "This build cannot be cancelled.")
            if $build->finished || $build->busy;
        # !!! Actually, it would be nice to be able to cancel busy
        # builds as well, but we would have to send a signal or
        # something to the build process.
        my $time = time();
        $build->update(
            { finished => 1, busy => 0
            , iscachedbuild => 0, buildstatus => 4 # = cancelled
            , starttime => $time
            , stoptime => $time
            });
    });
    $c->flash->{buildMsg} = "Build has been cancelled.";

    my $n = cancelBuilds($c->model('DB')->schema, $c->model('DB::Builds')->search({ id => $build->id }));
    error($c, "This build cannot be cancelled.") if $n != 1;
    $c->flash->{successMsg} = "Build has been cancelled.";

    $c->flash->{buildMsg} =

    $c->flash->{successMsg} =

    $c->flash->{buildMsg} = "Build added to project <tt>$releaseName</tt>.";

    $c->flash->{successMsg} = "Build added to project <tt>$releaseName</tt>.";

    $c->flash->{buildMsg} = "Build " . $newBuild->id . " added to the queue.";

    $c->flash->{successMsg} = "Build " . $newBuild->id . " added to the queue.";

sub cancel : Chained('eval') PathPart('cancel') Args(0) {
    my ($self, $c) = @_;
    requireProjectOwner($c, $c->stash->{eval}->project);
    my $n = cancelBuilds($c->model('DB')->schema, $c->stash->{eval}->builds);
    $c->flash->{successMsg} = "$n builds have been cancelled.";
    $c->res->redirect($c->uri_for($c->controller('JobsetEval')->action_for('view'), $c->req->captures));
}

    getTotalShares);

    getTotalShares
    cancelBuilds);

    my $res;

            $db->txn_do($coderef);

            $res = $db->txn_do($coderef);

        last if !$@;

        return $res if !$@;

sub cancelBuilds($$) {
    my ($db, $builds) = @_;
    return txn_do($db, sub {
        $builds = $builds->search({ finished => 0, busy => 0 });
        my $n = $builds->count;
        my $time = time();
        $builds->update(
            { finished => 1,
            , iscachedbuild => 0, buildstatus => 4 # = cancelled
            , starttime => $time
            , stoptime => $time
            });
        return $n;
    });
}

        <li><a href="[% c.uri_for(c.controller('JobsetEval').action_for('cancel'), [eval.id]) %]">Cancel all scheduled builds</a></li>

        title = "Clear all non-running old builds from queue"

        title = "Clear scheduled non-current builds from queue"