Index: openacs-4/contrib/obsolete-packages/bboard/www/forum-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/bboard/www/forum-delete.tcl,v
diff -u -N
--- openacs-4/contrib/obsolete-packages/bboard/www/forum-delete.tcl	6 Sep 2002 21:50:21 -0000	1.4
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,34 +0,0 @@
-ad_page_contract {
-    Presents confirmation screen for deleting a forum.
-
-    @author Anukul Kapoor (akk@arsdigita.com)
-    @creation-date 2000-30-11
-    @cvs-id $Id: forum-delete.tcl,v 1.4 2002/09/06 21:50:21 jeffd Exp $
-} {
-    forum_id:integer,notnull,bboard_forum_id
-} -properties {
-    forum_id:onevalue
-    short_name:onevalue
-    charter:onevalue
-}
-
-set package_id [ad_conn package_id]
-
-set context [list "Delete a forum"]
-set user_id [ad_verify_and_get_user_id]
-
-ad_require_permission $forum_id admin
-
-db_1row forum_info {
-    select short_name as forum_name, charter as forum_charter
-    from bboard_forums
-    where forum_id = :forum_id
-}
-
-db_1row forum_message_count {
-    select count(*) as message_count
-    from bboard_forum_message_map bfmm
-    where bfmm.forum_id = :forum_id
-}
-
-ad_return_template
\ No newline at end of file