},undef,$target,$c->user->id));
my $fleets = $dbh->prepare(q{
-SELECT DISTINCT ON (name) name, tick, fid, race
+SELECT DISTINCT ON (name) name, tick, fid, race, race_id
,COALESCE($2,score) AS score, COALESCE($2, value) AS value
-FROM fleets LEFT OUTER JOIN current_planet_stats p USING (pid)
+FROM fleets
+ LEFT OUTER JOIN current_planet_stats p USING (pid)
+ LEFT OUTER JOIN races r USING (race)
WHERE pid = $1 AND mission = 'Full fleet'
ORDER BY name ASC, tick DESC
});
},undef,$c->user->id,$fid));
my $fleets = $dbh->prepare(q{
-SELECT DISTINCT ON (name) name, tick, fid, race
+SELECT DISTINCT ON (name) name, tick, fid, race, race_id
,score AS score, value AS value
-FROM fleets LEFT OUTER JOIN current_planet_stats p USING (pid)
+FROM fleets
+ LEFT OUTER JOIN current_planet_stats p USING (pid)
+ LEFT OUTER JOIN races r USING (race)
WHERE pid = $1 AND mission = 'Full fleet'
ORDER BY name ASC, tick DESC
});
$c->stash(def => $fleets->fetchall_arrayref({}));
$fleets = $dbh->prepare(q{
-SELECT tick, fid, race ,score , value
-FROM fleets f LEFT OUTER JOIN current_planet_stats p USING (pid)
+SELECT tick, fid, race, race_id, score, value
+FROM fleets f
+ LEFT OUTER JOIN current_planet_stats p USING (pid)
+ LEFT OUTER JOIN races r USING (race)
WHERE fid = $1 AND pid = $2
});
$fleets->execute($fid, $c->user->planet);
WHERE fid = $1
});
- my %races = (Ter => 1, Cat => 2, Xan => 3, Zik => 4, Etd => 5);
for ('def','att'){
my $nrfleets = 0;
my $tick = 0;
++$nrfleets;
push @query, "${_}_planet_value_${nrfleets}=$fleet->{value}";
push @query, "${_}_planet_score_${nrfleets}=$fleet->{score}";
- push @query, "${_}_${nrfleets}_race=$races{$fleet->{race}}";
+ push @query, "${_}_${nrfleets}_race=$fleet->{race_id}";
while (my $ship = $ships->fetchrow_hashref){
push @query, "${_}_${nrfleets}_$ship->{id}=$ship->{amount}";
}