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