}
push @fleets, $fleet;
}
+
+ my $available = $dbh->prepare(q{
+SELECT ship,amount from ships_home WHERE planet = $1 AND tick = $2
+ });
+ $available->execute($call->{planet}, $call->{landing_tick});
+ my $fleet = {fid => $call->{member}, mission => 'Available'
+ , name => 'At home', ships => $available->fetchall_arrayref({})
+ };
+ push @fleets, $fleet;
+
$c->stash(fleets => \@fleets);
my $defenders = $dbh->prepare(q{
-SELECT DISTINCT ON (x,y,z,s.id,name,amount) fid,mission, name, eta
+SELECT DISTINCT ON (x,y,z,s.id,name,amount,back) fid,mission, name, eta
, amount, coords(x,y,z) AS coords, landing_tick AS tick, f.planet
,back, (back <> landing_tick + eta - 1) AS recalled
FROM launch_confirmations lc
my $query = $dbh->prepare(q{SELECT username,defense_points,count(id) AS calls
, SUM(fleets) AS fleets, SUM(recalled) AS recalled
+ ,count(NULLIF(fleets,0)) AS defended_calls
FROM (SELECT username,defense_points,c.id,count(f.target) AS fleets
, count(NULLIF(f.landing_tick + f.eta -1 = f.back,TRUE)) AS recalled
FROM users u JOIN calls c ON c.member = u.uid
LEFT OUTER JOIN (
SELECT * FROM launch_confirmations JOIN fleets USING (fid)
+ WHERE mission = 'Defend'
) f ON u.planet = f.target AND c.landing_tick = f.landing_tick
- WHERE f.mission = 'Defend'
GROUP BY username,defense_points,c.id
) d
GROUP BY username,defense_points ORDER BY fleets DESC, defense_points