Index: openacs.org-dev/packages/edit-this-page/tcl/etp-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs.org-dev/packages/edit-this-page/tcl/etp-procs.tcl,v diff -u -r1.2 -r1.3 --- openacs.org-dev/packages/edit-this-page/tcl/etp-procs.tcl 9 Aug 2002 04:51:29 -0000 1.2 +++ openacs.org-dev/packages/edit-this-page/tcl/etp-procs.tcl 26 Sep 2002 20:00:19 -0000 1.3 @@ -1,4 +1,5 @@ # etp-procs.tcl +# test cvs log email ad_library { Helper procedures for Edit This Page @@ -478,9 +479,11 @@ } { set url_stub [ns_conn url] array set site_node [site_node $url_stub] + +ns_log notice "DAVEB: [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]