Index: openacs-4/packages/general-comments/www/comment-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/comment-add-2.tcl,v
diff -u -r1.8 -r1.8.2.1
--- openacs-4/packages/general-comments/www/comment-add-2.tcl	7 Aug 2017 23:48:12 -0000	1.8
+++ openacs-4/packages/general-comments/www/comment-add-2.tcl	16 Mar 2022 10:30:26 -0000	1.8.2.1
@@ -27,6 +27,13 @@
     object_name:onevalue
     category:onevalue
     return_url:onevalue
+} -validate {
+    comment_mime_type_allowed -requires comment_mime_type:notnull {
+        if {$comment_mime_type ni {"text/plain" "text/html"}} {
+            ad_complain [_ acs-tcl.lt_name_is_not_valid [list name comment_mime_type]]
+            return
+        }
+    }
 }
 
 # check to see if the user can create comments on this object