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

* Job status: show the active jobs.

Browse Source
This commit is contained in:
Eelco Dolstra
2009-03-13 17:32:08 +00:00
parent 2ece4d9f15
commit 7c7c43335d
7 changed files with 21 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
src/lib/Hydra/Helper/CatalystUtils.pm
View File

@ -45,22 +45,19 @@ sub getBuildStats {
# Return the latest build for each job.
sub getLatestBuilds {
my ($c, $builds, $extraAttrs) = @_;
my ($c, $jobs, $extraAttrs) = @_;
my @res = ();
foreach my $build ($builds->search({},
{group_by => ['project', 'job', 'system']}))
{
my $attrs =
{ project => $build->get_column('project')
, job => $build->get_column('job')
, system => $build->system
, finished => 1
};
my ($build) = $builds->search({ %$attrs, %$extraAttrs },
{ join => 'resultInfo', order_by => 'timestamp DESC', rows => 1 } );
push @res, $build if defined $build;
# !!! this could be done more efficiently.
foreach my $job (ref $jobs eq "ARRAY" ? @{$jobs} : $jobs->all) {
foreach my $system ($job->builds->search({}, {select => ['system'], distinct => 1})) {
my ($build) = $job->builds->search(
{ finished => 1, system => $system->system, %$extraAttrs },
{ join => 'resultInfo', order_by => 'timestamp DESC', rows => 1 });
push @res, $build if defined $build;
}
}
return [@res];