my $hm = $query->param('hm'); $hm =~ s/[^a-zA-Z0-9_ -]//g;
$hm = '240' unless $hm =~ /^\d+$/;
+my $latest_personality = $db->selectrow_arrayref(q{
+ select os_version, compiler_version
+ from personality
+ where name = ?
+ order by effective_date desc limit 1
+ }, undef, $member);
+
# we don't really need to do this join, since we only want
# one row from buildsystems. but it means we only have to run one
# query. If it gets heavy we'll split it up and run two
select (now() at time zone 'GMT')::timestamp(0) - snapshot as when_ago,
sysname, snapshot, b.status, stage,
operating_system, os_version, compiler, compiler_version, architecture,
- owner_email
+ owner_email,
+ sys_notes_ts::date AS sys_notes_date, sys_notes
from buildsystems s,
build_status b
where name = ?
while (my $row = $sth->fetchrow_hashref)
{
$row->{owner_email} =~ s/\@/ [ a t ] /;
- push(@$statrows,$row);
+ if ($latest_personality)
+ {
+ $row->{os_version} = $latest_personality->[0];
+ $row->{compiler_version} = $latest_personality->[1];
+ }
+ push(@$statrows,$row);
}
+
$sth->finish;
$db->disconnect;