- $target{id} = $target->{id};
- $target{race} = $target->{race};
- my $num = pow(10,length($target->{score})-2);
- $target{score} = "Hidden"; #ceil($target->{score}/$num)*$num;
- $num = pow(10,length($target->{value})-2);
- $target{value} = "Hidden"; #ceil($target->{value}/$num)*$num;
- $num = pow(10,length($target->{size})-2);
- $target{size} = floor($target->{size}/$num)*$num;
- $num = pow(10,length($target->{fleetvalue})-2);
- $target{fleetvalue} = floor($target->{fleetvalue}/$num)*$num;
- if (defined $target->{resvalue}){
- $num = pow(10,length($target->{resvalue})-2);
- $target{resvalue} = floor($target->{resvalue}/$num)*$num;
- }
- $target{comment} = parseMarkup($target->{comment}) if ($target->{comment});
-
- $target{hidden} = int($target->{hidden} / 100);
- $target{light} = $production{$target->{light}};
- $target{medium} = $production{$target->{medium}};
- $target{heavy} = $production{$target->{heavy}};
-
- my $unitscans = $dbh->prepare(q{
- SELECT DISTINCT ON (name) i.id,i.name, i.tick, i.amount
- FROM fleets i
- WHERE i.uid = -1
- AND i.sender = ?
- AND i.mission = 'Full fleet'
- GROUP BY i.id,i.tick,i.name,i.amount
- ORDER BY name,i.tick DESC
+
+ my $unitscans = $dbh->prepare(q{
+SELECT DISTINCT ON (name) fid, name, tick, amount
+FROM fleets
+WHERE planet = ?
+ AND mission = 'Full fleet'
+GROUP BY fid,tick,name,amount
+ORDER BY name,tick DESC