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 -N -r1.1 -r1.2
--- openacs.org-dev/packages/edit-this-page/www/etp.tcl	9 Jul 2002 17:35:08 -0000	1.1
+++ openacs.org-dev/packages/edit-this-page/www/etp.tcl	8 Nov 2002 17:32:23 -0000	1.2
@@ -14,7 +14,7 @@
     page_url:onevalue
     content_pages:multirow
     page_title:onevalue
-    context_bar:onevalue
+    context:onevalue
     subtopics:multirow
 }
 
@@ -33,7 +33,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_complaint 1 "Page $name does not exist"
+}
 
 template::multirow create page_attributes name pretty_name value
 
@@ -57,9 +59,9 @@
 
 set page_title "Attributes for page \"$pa(title)\""
 if { $name == "index" } {
-    set context_bar [ad_context_bar "Edit"]
+    set context [list "Edit"]
 } else {
-    set context_bar [ad_context_bar [list $name $name] "Edit"]
+    set context [list [list $name $name] "Edit"]
 }
 
 set url_dir "[file dirname [ad_conn url]]"