Index: openacs-4/contrib/obsolete-packages/bboard/www/category-delete-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/bboard/www/category-delete-2.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/obsolete-packages/bboard/www/category-delete-2.tcl	28 Aug 2003 09:41:47 -0000	1.4
@@ -0,0 +1,25 @@
+ad_page_contract {
+
+    Delete a category
+
+    @author John Prevost <jmp@arsdigita.com>
+    @creation-date 2000-12-01
+    @cvs-id $Id: category-delete-2.tcl,v 1.4 2003/08/28 09:41:47 lars Exp $
+
+} {
+    category_id:integer,notnull,bboard_category_id
+}
+
+ad_require_permission $category_id bboard_delete_category
+
+db_1row forum_id {
+    select forum_id from bboard_categories where category_id = :category_id
+}
+
+db_exec_plsql delete_category {
+    begin
+        bboard_category.delete (:category_id);
+    end;
+}
+
+ad_returnredirect "forum?forum_id=$forum_id"
\ No newline at end of file