Index: openacs-4/packages/general-comments/www/comment-edit-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/comment-edit-3.tcl,v
diff -u -r1.7 -r1.7.2.1
--- openacs-4/packages/general-comments/www/comment-edit-3.tcl	7 Aug 2017 23:48:12 -0000	1.7
+++ openacs-4/packages/general-comments/www/comment-edit-3.tcl	27 Apr 2022 08:39:47 -0000	1.7.2.1
@@ -9,10 +9,17 @@
     @cvs-id $Id$
 } {
     comment_id:naturalnum,notnull
-    title
-    content:html
-    comment_mime_type
+    title:notnull
+    content:notnull,html
+    comment_mime_type:notnull,printable
     { return_url:localurl {} }
+} -validate {
+   comment_mime_type_allowed -requires comment_mime_type:notnull,printable {
+       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 edit this comment