Index: openacs-4/packages/general-comments/www/url-edit-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/url-edit-2.tcl,v
diff -u -r1.6.2.1 -r1.6.2.2
--- openacs-4/packages/general-comments/www/url-edit-2.tcl	21 Mar 2023 15:07:56 -0000	1.6.2.1
+++ openacs-4/packages/general-comments/www/url-edit-2.tcl	8 Jul 2024 11:32:47 -0000	1.6.2.2
@@ -13,8 +13,15 @@
     label:printable,notnull
     url:printable,notnull,string_length(max|1000)
     { return_url:localurl {} }
+} -validate {
+    no_data_url {
+        if {[string match "data:*" [string trim $url]]} {
+            ad_complain [_ acs-templating.Invalid_url]
+        }
+    }
 }
 
+
 # authenticate the user
 set user_id [ad_conn user_id]