* A quick (non-Web 2.0) interface to manually add builds to a release.

This commit is contained in:
Eelco Dolstra
2009-10-23 15:57:18 +00:00
parent a515c5fef2
commit 7e81fbd56a
5 changed files with 67 additions and 8 deletions

View File

@ -357,4 +357,28 @@ sub keep : Chained('build') PathPart Args(1) {
}
sub add_to_release : Chained('build') PathPart('add-to-release') Args(0) {
my ($self, $c) = @_;
my $build = $c->stash->{build};
requireProjectOwner($c, $build->project);
my $releaseName = trim $c->request->params->{name};
my $release = $build->project->releases->find({name => $releaseName});
error($c, "This project has no release named `$releaseName'.") unless $release;
error($c, "This build is already a part of release `$releaseName'.")
if $release->releasemembers->find({build => $build->id});
$release->releasemembers->create({build => $build->id, description => $build->description});
$c->flash->{buildMsg} = "Build added to project <tt>$releaseName</tt>.";
$c->res->redirect($c->uri_for($self->action_for("view_build"), $c->req->captures));
}
1;