Index: openacs-4/packages/edit-this-page/www/etp.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/edit-this-page/www/etp.tcl,v
diff -u -r1.2 -r1.2.2.1
--- openacs-4/packages/edit-this-page/www/etp.tcl	4 Sep 2002 13:01:46 -0000	1.2
+++ openacs-4/packages/edit-this-page/www/etp.tcl	8 Nov 2002 17:46:51 -0000	1.2.2.1
@@ -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"]]
 
@@ -33,7 +36,9 @@
 # the results aren't cached.
 
 set revision_id [etp::get_latest_revision_id $package_id $name]
-db_1row get_current_page_attributes "" -column_array pa
+if {![db_0or1row get_current_page_attributes "" -column_array pa]} {
+    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