From ca08e0e929a1e51db68f756c2ad637f6b4b610b3 Mon Sep 17 00:00:00 2001
From: Michael Andreen <harv@ruin.nu>
Date: Tue, 22 Jan 2008 09:15:20 +0100
Subject: [PATCH] Fixed getShips

---
 Usermgm.pm | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/Usermgm.pm b/Usermgm.pm
index ee0187e..f8d332a 100644
--- a/Usermgm.pm
+++ b/Usermgm.pm
@@ -177,9 +177,15 @@ sub getShips {
 		return;
 	}
 	if (officer() || dc()){
-		my $f = $ND::DBH->prepare(qq{SELECT username,SUM(amount) AS amount
-			FROM users u JOIN fleets f USING (uid) JOIN fleet_ships fs ON f.id = fs.fleet WHERE f.fleet = 0 AND ship ILIKE ? GROUP BY username ORDER BY amount DESC
-			});
+		my $f = $ND::DBH->prepare(qq{SELECT username,SUM(fs.amount) AS amount
+			FROM users u 
+				JOIN (SELECT DISTINCT ON (sender) sender AS planet,id FROM fleets
+					WHERE mission = 'Full fleet' AND name <> 'Unit'
+					ORDER BY sender,tick DESC,id DESC) f  USING (planet) 
+				JOIN fleet_ships fs ON f.id = fs.id
+			WHERE ship ILIKE ?
+			GROUP BY username ORDER BY amount DESC
+		});
 		$f->execute($ship);
 		my $text;
 		my $i = 0;
-- 
2.39.2