Index: openacs-4/packages/forums/www/admin/forum-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/admin/forum-edit.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/forums/www/admin/forum-edit.tcl	3 Jun 2002 04:39:05 -0000	1.2
+++ openacs-4/packages/forums/www/admin/forum-edit.tcl	1 Aug 2002 14:30:23 -0000	1.3
@@ -60,12 +60,14 @@
     ad_returnredirect "./"
     ad_script_abort
 }
+    
+if { [form is_request forum] } {
+    element set_properties forum forum_id -value $forum_id
+    element set_properties forum name -value $forum(name)
+    element set_properties forum charter -value $forum(charter)
+    element set_properties forum presentation_type -value $forum(presentation_type)
+    element set_properties forum posting_policy -value $forum(posting_policy)
+    element set_properties forum new_threads_p -value [forum::new_questions_allowed_p -forum_id $forum_id]
+}
 
-element set_properties forum forum_id -value $forum_id
-element set_properties forum name -value $forum(name)
-element set_properties forum charter -value $forum(charter)
-element set_properties forum presentation_type -value $forum(presentation_type)
-element set_properties forum posting_policy -value $forum(posting_policy)
-element set_properties forum new_threads_p -value [forum::new_questions_allowed_p -forum_id $forum_id]
-
 ad_return_template