- my $scans = $DBH->prepare(q{SELECT DISTINCT ON (type) type, tick, scan FROM scans
- WHERE planet = ? AND type ~ 'Unit|Planet|Advanced Unit|.* Analysis' AND tick + 24 > tick() AND scan is not null
- GROUP BY type, tick, scan ORDER BY type ,tick DESC});
- $scans->execute($target->{planet});
- my %scans;
- while (my $scan = $scans->fetchrow_hashref){
- $scans{$scan->{type}} = $scan;
- }
-
- my @scans;
- for my $type ('Planet','Unit','Advanced Unit','Surface Analysis','Technology Analysis'){
- next unless exists $scans{$type};
- my $scan = $scans{$type};
- if ($self->{TICK} - $scan->{tick} > 5){
- $scan->{scan} =~ s{<table( cellpadding="\d+")?>}{<table class="old">};
+ 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
+ });
+ $unitscans->execute($target->{planet}) or warn $DBH->errstr;
+ my $ships = $DBH->prepare(q{SELECT ship,amount FROM fleet_ships WHERE id = ?});
+ my @missions;
+ while (my $mission = $unitscans->fetchrow_hashref){
+ my @ships;
+ $ships->execute($mission->{id});
+ while (my $ship = $ships->fetchrow_hashref){
+ push @ships,$ship;