Index: openacs-4/packages/acs-subsite/www/admin/site-map/application-new.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/site-map/application-new.tcl,v diff -u -r1.5 -r1.6 --- openacs-4/packages/acs-subsite/www/admin/site-map/application-new.tcl 10 Jan 2007 21:22:08 -0000 1.5 +++ openacs-4/packages/acs-subsite/www/admin/site-map/application-new.tcl 27 Oct 2014 16:39:55 -0000 1.6 @@ -27,8 +27,8 @@ {help_text "This should be a short string, all lowercase, with hyphens instead of spaces, whicn will be used in the URL of the new application. If you leave this blank, we will generate one for you from name of the application."} {html {size 30}} {validate { - empty_or_not_exists - {expr \[empty_string_p \$value\] || \[catch { site_node::get_from_url -url "[ad_conn package_url]\$value/" -exact }\]} + check_exists + {expr \[catch { site_node::get_from_url -url "[ad_conn package_url]\$value/" -exact }\]} {This folder name is already used.} }} }