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.17 -r1.18 --- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl 18 Sep 2002 12:10:44 -0000 1.17 +++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl 20 Sep 2002 22:20:01 -0000 1.18 @@ -2843,23 +2843,23 @@ return [regexp "^\[^@<>\"\t ]+@\[^@<>\".\t ]+(\\.\[^@<>\".\n ]+)+$" $query_email] } -ad_proc util_email_unique_p { email } { +ad_proc -public util_email_unique_p { email } { Returns 1 if the email passed in does not yet exist in the system. @author yon (yon@openforce.net) } { return [db_string email_unique_p {}] } -ad_proc util_url_valid_p { query_url } { +ad_proc -public util_url_valid_p { query_url } { Returns 1 if a URL is a web URL (HTTP or HTTPS). @author Philip Greenspun (philg@mit.edu) } { - return [regexp {https?://.+} $query_url] + return [regexp {https?://[^ ].+} $query_url] } -ad_proc value_if_exists { var_name } { +ad_proc -public value_if_exists { var_name } { If the specified variable exists in the calling environment, returns the value of that variable. Otherwise, returns the empty_string. @@ -2870,7 +2870,7 @@ } } -ad_proc max { args } { +ad_proc -public max { args } { Returns the maximum of a list of numbers. Example: max 2 3 1.5 returns 3. @author Lars Pind (lars@pinds.com)