ahuston-0/hydra
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

* UI for cloning builds (not functional yet).

Browse Source
This commit is contained in:
Eelco Dolstra
2009-10-26 14:30:42 +00:00
parent cd27c046b0
commit 57cc6ceca6
6 changed files with 81 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
src/lib/Hydra/Controller/Build.pm
View File

@ -385,4 +385,28 @@ sub add_to_release : Chained('build') PathPart('add-to-release') Args(0) {
}
sub clone : Chained('build') PathPart('clone') Args(0) {
my ($self, $c) = @_;
my $build = $c->stash->{build};
requireProjectOwner($c, $build->project);
$c->stash->{template} = 'clone-build.tt';
}
sub clone_submit : Chained('build') PathPart('clone/submit') Args(0) {
my ($self, $c) = @_;
my $build = $c->stash->{build};
requireProjectOwner($c, $build->project);
$c->flash->{buildMsg} = "Build XXX added to the queue.";
$c->res->redirect($c->uri_for($c->controller('Root')->action_for('queue')));
}
1;

1
src/lib/Hydra/Controller/Root.pm
View File

@ -60,6 +60,7 @@ sub queue :Local {
$c->stash->{template} = 'queue.tt';
$c->stash->{queue} = [$c->model('DB::Builds')->search(
{finished => 0}, {join => 'schedulingInfo', order_by => ["priority DESC", "timestamp"]})];
$c->stash->{flashMsg} = $c->flash->{buildMsg};
}