Index: openacs-4/contrib/obsolete-packages/bboard/www/message-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/bboard/www/message-delete.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/bboard/www/message-delete.tcl	20 Apr 2001 20:51:09 -0000	1.1
+++ openacs-4/contrib/obsolete-packages/bboard/www/message-delete.tcl	29 Jun 2001 20:37:18 -0000	1.2
@@ -18,7 +18,11 @@
     replies:onevalue
 }
 
-ad_require_permission $message_id bboard_delete_message
+if {[ad_parameter "UserPostsDeletableP"] == "t"} {
+    ad_require_permission $message_id bboard_write_message
+} else {
+    ad_require_permission $message_id admin
+}
 
 if ![db_0or1row message_info {
         select m.message_id, m.reply_to, m.title,
@@ -32,6 +36,7 @@
     } -column_array message] {
     # It's not in that forum!
     ad_returnredirect "forum?forum_id=$forum_id"
+    ad_script_abort
 }
 
 db_1row forum_short_name {