Index: openacs-4/packages/forums/lib/forums/new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/forums/new.tcl,v
diff -u -N -r1.9 -r1.9.2.1
--- openacs-4/packages/forums/lib/forums/new.tcl	8 Nov 2017 12:05:55 -0000	1.9
+++ openacs-4/packages/forums/lib/forums/new.tcl	19 Jun 2019 16:41:38 -0000	1.9.2.1
@@ -26,7 +26,7 @@
 
 if {[form is_valid forum]} {
     template::form get_values forum \
-        forum_id name charter presentation_type posting_policy new_threads_p anonymous_allowed_p
+        forum_id name charter presentation_type posting_policy new_threads_p anonymous_allowed_p attachments_allowed_p
 
     # Users can create new threads?
     set new_questions_allowed_p [expr {$new_threads_p && $posting_policy ne "closed" ? t : f}]
@@ -39,7 +39,8 @@
                           -posting_policy          $posting_policy \
                           -package_id              $package_id \
                           -new_questions_allowed_p $new_questions_allowed_p \
-                          -anonymous_allowed_p     $anonymous_allowed_p]
+                          -anonymous_allowed_p     $anonymous_allowed_p \
+                          -attachments_allowed_p   $attachments_allowed_p]
     }
     
     ad_returnredirect $return_url
@@ -52,6 +53,7 @@
     element set_properties forum forum_id -value $forum_id
     element set_value forum new_threads_p t
     element set_value forum anonymous_allowed_p f
+    element set_value forum attachments_allowed_p t
     element set_value forum name $name
 }