Index: openacs.org-dev/packages/edit-this-page/www/etp.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/edit-this-page/www/etp.tcl,v
diff -u -r1.2 -r1.3
--- openacs.org-dev/packages/edit-this-page/www/etp.tcl	8 Nov 2002 17:32:23 -0000	1.2
+++ openacs.org-dev/packages/edit-this-page/www/etp.tcl	8 Nov 2002 17:45:22 -0000	1.3
@@ -20,6 +20,9 @@
 
 etp::check_write_access
 
+# lets make etp subsite aware
+# get the cloest ancestor acs-subsite
+set subsite_url [site_node_closest_ancestor_package_url -package_key "acs-subsite"]
 array set application_params [etp::get_application_params]
 set subtopic_object_name [etp::get_application_param index_object_name [ad_parameter subtopic_application "default"]]
 
@@ -34,7 +37,7 @@
 
 set revision_id [etp::get_latest_revision_id $package_id $name]
 if {![db_0or1row get_current_page_attributes "" -column_array pa]} {
-    ad_return_complaint 1 "Page $name does not exist"
+    ad_return_warning "Page $name does not exist" "No page by the name of $name exists"
 }
 
 template::multirow create page_attributes name pretty_name value