Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v
diff -u -r1.65 -r1.66
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	11 Jan 2004 20:56:13 -0000	1.65
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	28 Jan 2004 17:44:53 -0000	1.66
@@ -3255,11 +3255,11 @@
 }
 
 ad_proc -public util_url_valid_p { query_url } {
-    Returns 1 if a URL is a web URL (HTTP or HTTPS).
+    Returns 1 if a URL is a web URL (HTTP, HTTPS or FTP).
 
     @author Philip Greenspun (philg@mit.edu)
 } {
-    return [regexp {https?://[^ ].+} [string trim $query_url]]
+    return [regexp -nocase {^(http|https|ftp)://[^ ].+} [string trim $query_url]]
 }
 
 ad_proc -public value_if_exists { var_name } {