Only show member fleets

diff --git a/Usermgm.pm b/Usermgm.pm
index 2663e35e5f8f8e809bffc6a67479f490b554f2b3..6771d65cf4dbd00a20912cfdaf5283b76f03f743 100644 (file)
--- a/Usermgm.pm
+++ b/Usermgm.pm
@@ -201,14 +201,14 @@ sub getShips {
                                        WHERE mission = 'Full fleet' AND name <> 'Unit'
                                        ORDER BY planet,tick DESC,fid DESC) f  USING (planet) 
                                JOIN fleet_ships fs USING (fid)
-                       WHERE ship ILIKE ?
+                       WHERE ship ILIKE ? AND uid IN (SELECT uid FROM groupmembers WHERE gid = 2)
                        GROUP BY username ORDER BY amount DESC
                        });
                if ($command eq 'shipshome'){
                        $f = $ND::DBH->prepare(q{
 SELECT username,SUM(amount) AS amount
 FROM available_ships
-WHERE ship ILIKE ?
+WHERE ship ILIKE ? AND uid IN (SELECT uid FROM groupmembers WHERE gid = 2)
 GROUP BY username ORDER BY amount DESC
                        });
                }