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.19.2.8 -r1.19.2.9 --- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl 20 Mar 2003 10:28:25 -0000 1.19.2.8 +++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl 20 Mar 2003 13:38:06 -0000 1.19.2.9 @@ -2839,7 +2839,7 @@ ad_proc -public util_text_to_url { {-existing_urls {}} - {-resolve_conflicts_p:boolean 1} + {-no_resolve:boolean} {-replacement "-"} text } { @@ -2852,7 +2852,8 @@ @param existing_urls a list of URLs that already exist on the same level and would cause a conflict - @param resolve_conflicts_p automatically generate "foo-bar-2" if "foo-bar" is already in existing_urls. If set to false it throws an error in case of a conflict. + @param no_resolve Specify this flag if you do not want util_text_to_url to automatically generate + "foo-bar-2" if "foo-bar" is already in existing_urls, and would rather have an error thrown. @param replacement the character that is used to replace illegal characters @@ -2881,7 +2882,7 @@ # check if the resulting url is already present if { [lsearch -exact $existing_urls $text] > -1 } { - if { !$resolve_conflicts_p } { + if { $no_resolve_p } { # URL is already present in the existing_urls list and we # are asked to not automatically resolve the collision error "The url $text is already present"