build.pm

sub versions {
	my ($s) = @_;
	
	# get a summary of the actions for this build (in some cases all versions will be the same)
	my $sth = BS::db::action->db_Main->prepare(<<SQL);
	select max(action_id) from actions where build_id = ? group by branch_id, revision, storm_branch_id, storm_revision, build_id;
SQL

	$sth->execute($s->id);
	return BS::db::action->sth_to_objects($sth);
}

user.asp

<%
# version information
my ($status) = join '', map { $_->branch->name . $_->revision } $build->versions;
$Response->Write("<li>$a</li>");
%>

Hi -

That would be:

my ($status) = map { $_->branch->name . $_->revision } $build->versions;

Or:

my $status = join '', map { $_->branch->name, $_->revision } $build->versions;

Also, variables '$a' and '$b' are considered magical, since they are autovivified in sort BLOCK expressions like my @sorted_by_name = sort { $a->name cmp $b->name } @list