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.13.2.2 -r1.13.2.3
--- openacs-4/packages/forums/www/message-post.tcl	20 Nov 2002 23:36:47 -0000	1.13.2.2
+++ openacs-4/packages/forums/www/message-post.tcl	22 Nov 2002 18:34:25 -0000	1.13.2.3
@@ -9,6 +9,7 @@
 } -query {
     {forum_id ""}
     {parent_id ""}
+    {html_p "f"}
 } -validate {
     forum_id_or_parent_id {
         if {[empty_string_p $forum_id] && [empty_string_p $parent_id]} {
@@ -54,8 +55,9 @@
 element create message html_p \
     -label Format \
     -datatype text \
-    -widget select \
-    -options {{text f} {html t}}
+    -widget radio \
+    -value $html_p \
+    -options {{text f} {html t}} 
 
 element create message parent_id \
     -label "parent ID" \