Index: openacs-4/contrib/obsolete-packages/bboard/www/message-delete-2-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/bboard/www/message-delete-2-postgresql.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/contrib/obsolete-packages/bboard/www/message-delete-2-postgresql.xql	1 Dec 2001 22:25:58 -0000	1.3
+++ openacs-4/contrib/obsolete-packages/bboard/www/message-delete-2-postgresql.xql	8 Dec 2001 01:17:59 -0000	1.4
@@ -6,9 +6,16 @@
 <fullquery name="bboard_delete_threads">      
       <querytext>
 
-	delete from bboard_forum_message_map map, acs_messages m, acs_messages m2
-         where map.message_id = m.message_id
-           and m.tree_sortkey between m2.tree_sortkey and tree_right(m2.tree_sortkey) 
+	delete from bboard_forum_message_map
+        where message_id in
+          (select m.message_id
+           from acs_messages m, acs_messages m2
+           where m2.message_id = :message_id
+             and m.tree_sortkey between m2.tree_sortkey and tree_right(m2.tree_sortkey))
+          and exists (select 1 from all_object_party_privilege_map
+                      where object_id = message_id
+                        and party_id = :user_id
+                        and privilege = 'bboard_delete_message')
 
       </querytext>
 </fullquery>