Index: openacs-4/packages/forums/www/admin/forum-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/admin/forum-new.tcl,v
diff -u -N -r1.1.1.1 -r1.1.1.2
--- openacs-4/packages/forums/www/admin/forum-new.tcl	29 May 2002 21:40:11 -0000	1.1.1.1
+++ openacs-4/packages/forums/www/admin/forum-new.tcl	28 Jun 2006 20:30:29 -0000	1.1.1.2
@@ -1,61 +1,15 @@
-
 ad_page_contract {
     
     Create a Forum
 
-    @author Ben Adida (ben@openforce)
+    @author Ben Adida (ben@openforce.net)
     @creation-date 2002-05-25
-    @cvs-id $id: Exp $
-} {
-}
+    @cvs-id $Id$
 
-# scoping
-set package_id [ad_conn package_id]
-
-form create forum
-
-element create forum forum_id \
-        -label "Forum ID" -datatype integer -widget hidden
-
-element create forum name \
-        -label "Name" -datatype text -widget text -html {size 60}
-
-element create forum charter \
-        -label "Charter" -datatype text -widget textarea -html {cols 60 rows 10 wrap soft}
-
-element create forum presentation_type \
-        -label "Presentation" -datatype text -widget select -options {{Flat flat} {Threaded threaded}}
-
-element create forum posting_policy \
-        -label "Posting Policy" -datatype text -widget select -options {{open open} {moderated moderated} {closed closed}}
-
-element create forum new_threads_p \
-        -label "Users Can Create New Threads" -datatype integer -widget radio -options {{yes 1} {no 0}}
-
-if {[form is_valid forum]} {
-    template::form get_values forum forum_id name charter presentation_type posting_policy new_threads_p
-
-    set forum_id [forum::new -forum_id $forum_id \
-            -name $name \
-            -charter $charter \
-            -presentation_type $presentation_type \
-            -posting_policy $posting_policy \
-            -package_id $package_id]
-
-    # Users can create new threads?
-    if {$new_threads_p} {
-        forum::new_questions_allow -forum_id $forum_id
-    } else {
-        forum::new_questions_deny -forum_id $forum_id
-    }
-
-    ad_returnredirect "../"
-    ad_script_abort
+} -query {
+    {name ""}
 }
 
-# Pre-fetch the forum_id
-set forum_id [db_nextval acs_object_id_seq]
-element set_properties forum forum_id -value $forum_id
-element set_properties forum new_threads_p -value 1
+set context [list [_ forums.Create_New_Forum]]
 
 ad_return_template