- fixed non-customer query

tcl/intranet-forum-procs.tcl

@@ -277,16 +277,19 @@ select distinct
 	im_name_from_user_id(u.user_id) as user_name
 from
 	acs_rels r,
-	group_member_map m,
-	membership_rels mr,
 	users u
 where
 	r.object_id_one = :object_id
 	and r.object_id_two = u.user_id
-	and m.rel_id = mr.rel_id
-	and mr.member_state = 'approved'
-	and m.member_id = u.user_id
-	and not(m.group_id = :customer_group_id)
+	and u.user_id not in (
+		select distinct
+			m.member_id
+		from	group_member_map m,
+			membership_rels mr
+		where	m.rel_id = mr.rel_id
+			and mr.member_state = 'approved'
+			and m.group_id = :customer_group_id
+	)
 )"
 
     set object_staff_sql "(