Index: openacs-4/packages/forums/www/message-post-confirm.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/message-post-confirm.adp,v
diff -u -r1.11 -r1.11.2.1
--- openacs-4/packages/forums/www/message-post-confirm.adp	10 Oct 2003 17:09:44 -0000	1.11
+++ openacs-4/packages/forums/www/message-post-confirm.adp	24 Nov 2003 14:57:34 -0000	1.11.2.1
@@ -30,13 +30,6 @@
     <br>
   </if>
 
-  <if @attachments_enabled_p@ eq 1>
-  #forums.lt_Would_you_like_to_att#
-    <input type="radio" name="attach_p" value="0" checked>#forums.No#</input>
-    <input type="radio" name="attach_p" value="1">#forums.Yes#</input>
-<br>  
-  </if>
-
   <input type="submit" name="formbutton:post" value="#forums.Post#">
   <input type="submit" name="formbutton:edit" value="#forums.Edit_again#">
 </form>
Index: openacs-4/packages/forums/www/message-post.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/message-post.tcl,v
diff -u -r1.28 -r1.28.2.1
--- openacs-4/packages/forums/www/message-post.tcl	7 Nov 2003 17:24:01 -0000	1.28
+++ openacs-4/packages/forums/www/message-post.tcl	24 Nov 2003 14:57:34 -0000	1.28.2.1
@@ -109,11 +109,16 @@
 set attachments_enabled_p [forum::attachments_enabled_p]
 
 if {$attachments_enabled_p} {
+    if { ![info exists attach_p] } {
+        set attach_p 0
+    }
+
     element create message attach_p \
             -label [_ forums.Attach] \
             -datatype text \
-            -widget hidden \
-            -optional
+            -widget radio \
+            -value $attach_p \
+            -options [list [list [_ forums.No] 0] [list [_ forums.Yes] 1]]
 }
 
 if {[form is_valid message]} {
@@ -131,7 +136,7 @@
 	set subject.spellcheck ":nospell:"
 	set content.spellcheck ":nospell:"
         set content [string trimright $content]
-        set exported_vars [export_form_vars message_id forum_id parent_id subject content html_p confirm_p subject.spellcheck content.spellcheck anonymous_p]
+        set exported_vars [export_form_vars message_id forum_id parent_id subject content html_p confirm_p subject.spellcheck content.spellcheck anonymous_p attach_p]
         
         set message(html_p) $html_p
         set message(subject) $subject