Index: openacs-4/packages/acs-subsite/www/shared/parameters.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/shared/parameters.tcl,v diff -u -r1.8 -r1.9 --- openacs-4/packages/acs-subsite/www/shared/parameters.tcl 15 Oct 2003 09:36:05 -0000 1.8 +++ openacs-4/packages/acs-subsite/www/shared/parameters.tcl 24 Oct 2003 13:22:47 -0000 1.9 @@ -24,10 +24,13 @@ if { [string equal $package_url [subsite::get_element -element url]] } { set context [list [list "${package_url}admin/" "Administration"] $page_title] +} elseif { ![empty_string_p $package_url] } { + set context [list [list $package_url $instance_name] [list "${package_url}admin/" "Administration"] $page_title] } else { - set context [list [list $package_url $instance_name] [list "${package_url}admin/" "Administration"] $page_title] + set context [list $page_title] } + ad_require_permission $package_id admin ad_form -name parameters -export {section} -cancel_url $return_url -form {