Index: openacs.org-dev/packages/forums/www/message-post.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/forums/www/message-post.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs.org-dev/packages/forums/www/message-post.tcl	12 Aug 2002 19:58:07 -0000	1.2
+++ openacs.org-dev/packages/forums/www/message-post.tcl	12 Aug 2002 20:02:39 -0000	1.3
@@ -46,17 +46,6 @@
 	{options {{text f} {html t}}}
     }
     {subscribe_p:text(hidden)}
-}
-
-set attachments_enabled_p [forum::attachments_enabled_p]
-
-if {$attachments_enabled_p} {
-
-    ad_form -extend -name message -form {
-	{attach_p:text(hidden)}
-    }
-} else {
-    ns_log Notice "FORUMS: attachments not enabled"
 } -new_data {
 
         forum::get -forum_id $forum_id -array forum
@@ -130,6 +119,17 @@
 	} $error_message
     }
 
+set attachments_enabled_p [forum::attachments_enabled_p]
+
+if {$attachments_enabled_p} {
+
+    ad_form -extend -name message -form {
+	{attach_p:text(hidden)}
+    }
+} else {
+    ns_log Notice "FORUMS: attachments not enabled"
+}
+
 #set message_id [db_nextval acs_object_id_seq]
 set subject ""