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.7 -r1.8
--- openacs-4/contrib/obsolete-packages/bboard/tcl/bboard-procs-postgresql.xql	30 Nov 2001 00:50:22 -0000	1.7
+++ openacs-4/contrib/obsolete-packages/bboard/tcl/bboard-procs-postgresql.xql	1 Dec 2001 22:25:53 -0000	1.8
@@ -221,15 +221,12 @@
 <fullquery name="bboard_message_subscribed_p.check_message_subscribed">      
       <querytext>
 
-	select count(*) as subscribed_p from bboard_thread_subscribers
-	 where subscriber_id = :user_id
-	   and thread_id in 
-               (select message_id 
-                  from acs_messages b
-                 where tree_sortkey like
-                       (select tree_sortkey 
-                          from acs_messages
-                         where message_id = :message_id) || '%')
+	select count(*) as subscribed_p
+         from bboard_thread_subscribers bs, acs_messages m, acs_messages m2
+	 where bs.subscriber_id = :user_id
+	   and bs.thread_id = m.message_id 
+           m2.message_id = :message_id
+           and m.tree_sortkey between m2.tree_sortkey and tree_right(m2.tree_sortkey)
 
       </querytext>
 </fullquery>
@@ -414,13 +411,12 @@
   <querytext>
         select subscriber_id as recipient_id, thread_id as grouping_id,
                now() as wait_until
-          from bboard_thread_subscribers s
-         where s.thread_id in 
-               (select message_id from acs_messages
-                 where tree_sortkey like 
-                       (select substring(tree_sortkey from 0 for 4) || '%'
-                          from acs_messages
-                         where message_id = :message_id))
+          from bboard_thread_subscribers s, acs_messages m, acs_messages m2
+         where s.thread_id = m.message_id
+           and m2.message_id = :message_id
+           and m.tree_sortkey between
+             substr(m2.tree_sortkey, 1, position('/' in substr(m2.tree_sortkey, 2)))
+             and tree_right(substr(m2.tree_sortkey, 1, position('/' in substr(m2.tree_sortkey, 2))))
            and exists (select 1
                        from all_object_party_privilege_map map
                        where map.object_id = :message_id and