ma27/hydra
0
0
Fork 0
forked from lix-project/hydra
Code Pull requests Activity

Do not delete builds when clearing the queue. Fixes #8.

Browse source
This commit is contained in:
Rob Vermaas 2012-04-30 22:13:53 +02:00
parent b52018e61a
commit df71a86183
1 changed files with 1 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/lib/Hydra/Controller/Admin.pm
View file

@ -325,16 +325,7 @@ sub machine_disable : Chained('machine') PathPart('disable') Args(0) {
sub clear_queue_non_current : Chained('admin') Path('clear-queue-non-current') Args(0) {
my ($self, $c) = @_;
# !!! Mark the builds as cancelled instead.
$c->model('DB::Builds')->search({finished => 0, iscurrent => 0, busy => 0})->delete_all;
$c->res->redirect("/admin");
}
sub clear_queue : Chained('admin') Path('clear-queue') Args(0) {
my ($self, $c) = @_;
# !!! Mark the builds as cancelled instead.
$c->model('DB::Builds')->search({finished => 0, busy => 0})->delete_all;
$c->model('DB::Builds')->search({finished => 0, iscurrent => 0, busy => 0})->update({ finished => 1, buildstatus => 4, timestamp => time});
$c->res->redirect("/admin");
}