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