Index: openacs-4/contrib/obsolete-packages/bboard/www/category-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/bboard/www/category-delete.tcl,v
diff -u -N
--- openacs-4/contrib/obsolete-packages/bboard/www/category-delete.tcl	6 Sep 2002 21:50:21 -0000	1.3
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,40 +0,0 @@
-ad_page_contract {
-
-    Displays a confirmation of "do you really want to delete this category?"
-
-    @author John Prevost <jmp@arsdigita.com>
-    @creation-date 2000-12-01
-    @cvs-id $Id: category-delete.tcl,v 1.3 2002/09/06 21:50:21 jeffd Exp $
-
-} {
-    category_id:integer,notnull,bboard_category_id
-} -properties {
-    context:onevalue
-    category_id:onevalue
-    category_name:onevalue
-    message_count:onevalue
-}
-
-ad_require_permission $category_id bboard_delete_category
-
-db_1row forum_short_name_id {
-    select f.short_name as forum_name, f.forum_id
-        from bboard_forums f, bboard_categories c
-        where c.category_id = :category_id
-          and c.forum_id = f.forum_id
-}
-
-db_1row category_short_name {
-    select short_name as category_name
-        from bboard_categories
-        where category_id = :category_id
-}
-
-db_1row category_message_count {
-    select count(*) as message_count
-        from bboard_category_message_map
-        where category_id = :category_id
-}
-
-set context [list [list "forum?[export_url_vars forum_id]" $forum_name] \
-                      "Delete Category"]