Index: openacs-4/packages/edit-this-page/tcl/etp-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/edit-this-page/tcl/etp-procs.tcl,v diff -u -N -r1.8.2.4 -r1.8.2.5 --- openacs-4/packages/edit-this-page/tcl/etp-procs.tcl 26 Mar 2003 17:47:03 -0000 1.8.2.4 +++ openacs-4/packages/edit-this-page/tcl/etp-procs.tcl 7 Jul 2003 16:22:09 -0000 1.8.2.5 @@ -490,7 +490,7 @@ array set site_node [site_node $url_stub] set urlc [regexp -all "/" $url_stub] if { ($site_node(package_key) == "edit-this-page" || - ($site_node(package_key) == "acs-subsite" && $urlc == 1)) && + $site_node(package_key) == "acs-subsite") && [ad_permission_p [ad_conn package_id] write] } { set name [etp::get_name] @@ -499,7 +499,9 @@ return "etp?[export_vars { name }]" } } + return "" + } ad_proc -public get_etp_link { } {