Index: openacs-4/packages/general-comments/www/url-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/url-add-2.tcl,v
diff -u -r1.8.2.3 -r1.8.2.4
--- openacs-4/packages/general-comments/www/url-add-2.tcl	23 Mar 2023 13:56:29 -0000	1.8.2.3
+++ openacs-4/packages/general-comments/www/url-add-2.tcl	8 Jul 2024 11:32:47 -0000	1.8.2.4
@@ -22,7 +22,7 @@
     }
     no_data_url {
         if {[string match "data:*" [string trim $url]]} {
-            ad_complain "\[ns_quotehtml $url]\" must not start with 'data:'"
+            ad_complain [_ acs-templating.Invalid_url]
         }
     }
 }
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]