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 @@
- 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)
@@ -414,13 +411,12 @@
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