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.4 -r1.5
--- openacs-4/packages/forums/www/admin/forum-new.tcl	5 Jun 2002 14:28:47 -0000	1.4
+++ openacs-4/packages/forums/www/admin/forum-new.tcl	1 Aug 2002 14:53:20 -0000	1.5
@@ -73,11 +73,15 @@
     ad_script_abort
 }
 
-# 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 name -value $name
-element set_properties forum presentation_type -value threaded
-element set_properties forum new_threads_p -value 1
+set context_bar [list "Create New Forum"]
 
+if { [form is_request forum] } {
+    # 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 name -value $name
+    element set_properties forum presentation_type -value threaded
+    element set_properties forum new_threads_p -value 1
+}
+
 ad_return_template