Index: openacs-4/contrib/obsolete-packages/bboard/tcl/bboard-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/bboard/tcl/bboard-procs-postgresql.xql,v
diff -u -r1.5 -r1.6
--- openacs-4/contrib/obsolete-packages/bboard/tcl/bboard-procs-postgresql.xql	1 Nov 2001 19:01:47 -0000	1.5
+++ openacs-4/contrib/obsolete-packages/bboard/tcl/bboard-procs-postgresql.xql	28 Nov 2001 18:39:39 -0000	1.6
@@ -419,10 +419,11 @@
                        (select substring(tree_sortkey from 0 for 4) || '%'
                           from acs_messages
                          where message_id = :message_id))
-           and s.subscriber_id in (select party_id 
-                                     from acs_object_party_privilege_map 
-                                    where object_id = :message_id 
-                                      and privilege = 'bboard_read_message')
+           and exists (select 1
+                       from all_object_party_privilege_map map
+                       where map.object_id = :message_id and
+                           map.party_id = s.subscriber_id and
+                           privilege = 'bboard_read_message')
 
   </querytext>
 </partialquery>
@@ -435,10 +436,12 @@
 	  from bboard_category_subscribers s, bboard_category_message_map m
 	  where m.message_id = :message_id
 	    and s.category_id = m.category_id
-            and s.subscriber_id in (select party_id 
-                                      from acs_object_party_privilege_map 
-                                     where object_id = :message_id 
-                                       and privilege = 'bboard_read_message')
+            and exists (select 1
+                        from all_object_party_privilege_map map
+                        where map.object_id = :message_id and
+                            map.party_id = s.subscriber_id and
+                            privilege = 'bboard_read_message')
+
   </querytext>
 </partialquery>
 
@@ -450,10 +453,11 @@
             from bboard_forum_subscribers s, bboard_forum_message_map m
             where m.message_id = :message_id
               and s.forum_id = m.forum_id
-              and s.subscriber_id in (select party_id 
-                                        from acs_object_party_privilege_map 
-                                       where object_id = :message_id 
-                                         and privilege = 'bboard_read_message')
+              and exists (select 1
+                          from all_object_party_privilege_map map
+                          where map.object_id = :message_id and
+                              map.party_id = s.subscriber_id and
+                              privilege = 'bboard_read_message')
   </querytext>
 </partialquery>