X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=NDWeb%2FPages%2FRaids.pm;h=4b454589af81e11a6bebc19e4bba811a72d39a49;hb=35db7e672510834278ecf8c508f441835d5cd2ce;hp=766d5a390e589e69202caded65c6527de2688ab1;hpb=ac550844a0deacd02badadadc67eb5a41ffa095d;p=ndwebbie.git diff --git a/NDWeb/Pages/Raids.pm b/NDWeb/Pages/Raids.pm index 766d5a3..4b45458 100644 --- a/NDWeb/Pages/Raids.pm +++ b/NDWeb/Pages/Raids.pm @@ -236,30 +236,29 @@ sub render_body { $target{comment} = parseMarkup($target->{comment}) if ($target->{comment}); my $unitscans = $DBH->prepare(q{ - SELECT i.id,i.name, i.tick, i.amount + 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 i.tick,name + 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 $ships = $DBH->prepare(q{SELECT ship,amount FROM fleet_ships + WHERE id = ? ORDER BY num + }); my @missions; - my $i = 0; while (my $mission = $unitscans->fetchrow_hashref){ - $mission->{ODD} = $i++ % 2; my @ships; $ships->execute($mission->{id}); - my $j = 0; while (my $ship = $ships->fetchrow_hashref){ - $ship->{ODD} = $j++ % 2; push @ships,$ship; } push @ships, {ship => 'No', amount => 'ships'} if @ships == 0; $mission->{ships} = \@ships; $mission->{amount} =~ s/(^[-+]?\d+?(?=(?>(?:\d{3})+)(?!\d))|\G\d{3}(?=\d))/$1,/g; #Add comma for ever 3 digits, i.e. 1000 => 1,000 + delete $mission->{id}; push @missions,$mission; } $target{missions} = \@missions;