Index: openacs-4/contrib/obsolete-packages/bboard/www/category-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/bboard/www/category-new.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/obsolete-packages/bboard/www/category-new.tcl	28 Aug 2003 09:41:47 -0000	1.5
@@ -0,0 +1,38 @@
+ad_page_contract {
+    
+    Displays a form for creating a category in a forum.
+
+    @author John Prevost <jmp@arsdigita.com>
+    @creation-date 2000-08-31
+    @cvs-id $Id: category-new.tcl,v 1.5 2003/08/28 09:41:47 lars Exp $
+} {
+    forum_id:integer,notnull,bboard_forum_id
+} -properties {
+    context:onevalue
+    forum_name:onevalue
+    forum_id:onevalue
+    short_name:onevalue
+    submit_label:onevalue
+    category_id:onevalue
+    action:onevalue
+    title:onevalue
+}
+
+ad_require_permission $forum_id bboard_create_category
+
+set action "category-new-2"
+set short_name ""
+set submit_label "Create Category"
+set title "Create a Category"
+
+db_1row forum_short_name {
+    select short_name as forum_name from bboard_forums
+      where forum_id = :forum_id
+}
+
+set context [list [list "forum?[export_url_vars forum_id]" $forum_name] \
+             "Create a Category"]
+
+set category_id [db_nextval acs_object_id_seq]
+
+ad_return_template category-entry