# HG changeset patch
# User unc0rr
# Date 1224928493 0
# Node ID 20746999bc4a33192803863feaffaaabde5a2a76
# Parent  df78c9571bc774728f5c96c8bc6b9f483795865a
Don't list rooms with restricted joining

diff -r df78c9571bc7 -r 20746999bc4a netserver/HWProto.hs
--- a/netserver/HWProto.hs	Fri Oct 24 17:53:14 2008 +0000
+++ b/netserver/HWProto.hs	Sat Oct 25 09:54:53 2008 +0000
@@ -120,7 +120,7 @@
 					(show $ playersIn room) ++ "(" ++ (show $ length $ teams room) ++ ")",
 					show $ gameinprogress room
 					]
-			sameProtoRooms = filter (\r -> roomProto r == protocol client) rooms
+			sameProtoRooms = filter (\r -> (roomProto r == protocol client) && (not $ isRestrictedJoins r)) rooms
 
 handleCmd_noRoom client _ rooms ["CREATE", newRoom, roomPassword] =
 	if (not $ isDedicated globalOptions) && (not $ null rooms) then