Index: openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl,v
diff -u -r1.109.2.44 -r1.109.2.45
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	7 Feb 2023 12:46:43 -0000	1.109.2.44
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	23 Mar 2023 15:13:48 -0000	1.109.2.45
@@ -2854,11 +2854,7 @@
     @author Lars Pind (lars@pinds.com)
     @creation-date 19 July 2000
 } {
-    if { [regexp -nocase {<p>} $text] || [regexp -nocase {<br>} $text] || [regexp -nocase {</a} $text] } {
-        return 1
-    } else {
-        return 0
-    }
+    return [regexp -nocase {<[[:alnum:]\.\-\:]+[^>]*>} $text]
 }
 
 ad_proc util_remove_html_tags { html } {
Index: openacs-4/packages/acs-templating/tcl/data-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/data-procs.tcl,v
diff -u -r1.23.2.16 -r1.23.2.17
--- openacs-4/packages/acs-templating/tcl/data-procs.tcl	7 Feb 2022 16:12:30 -0000	1.23.2.16
+++ openacs-4/packages/acs-templating/tcl/data-procs.tcl	23 Mar 2023 15:13:48 -0000	1.23.2.17
@@ -33,6 +33,7 @@
     @see template::data::validate::number
     @see template::data::validate::search
     @see template::data::validate::string
+    @see template::data::validate::nomarkup
     @see template::data::validate::text
     @see template::data::validate::textdate
     @see template::data::validate::timestamp
@@ -236,6 +237,24 @@
     return 1
 }
 
+ad_proc -public template::data::validate::nomarkup {
+    value_ref
+    message_ref
+} {
+    Checks if supplied string contains markup.
+
+    @author Guenter Ernst <guenter.ernst@wu.ac.at>
+} {
+    upvar 2 $message_ref message $value_ref value
+
+    if { [ad_looks_like_html_p $value] } {
+        set message "No markup allowed"
+        return 0
+    } else {
+        return 1
+    }
+}
+
 ad_proc -public template::data::validate::keyword {
     value_ref
     message_ref