Index: openacs-4/packages/edit-this-page/www/etp-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/edit-this-page/www/etp-edit.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/edit-this-page/www/etp-edit.tcl	23 Sep 2003 19:13:20 -0000	1.7
+++ openacs-4/packages/edit-this-page/www/etp-edit.tcl	2 Oct 2003 14:22:17 -0000	1.8
@@ -69,6 +69,8 @@
 set form_list [list revision_id:key]
 lappend form_list $widget_list
 
+lappend form_list [list page_title:text(hidden)]
+
 ad_form -export { name attribute  widget} -form $form_list -edit_request {
 
 
@@ -90,8 +92,6 @@
 
 } -new_request {
 
-
-
     if { [lsearch -exact {title description content} $attribute] >= 0 } {
 	# value is stored in cr_revisions table
 
@@ -102,12 +102,13 @@
 	set attribute_id [etp::get_attribute_id $attribute_desc]
 	db_1row get_extended_attribute ""
     }
-	if {[string equal $widget "(richtext)"]} {
-	    set $element [template::util::richtext create $value $mime_type]
-	} else {
-	    set $element $value
-	}
 
+    if {[string equal $widget "(richtext)"]} {
+        set $element [template::util::richtext create $value $mime_type]
+    } else {
+        set $element $value
+    }
+
 } -new_data {
     # usually we are creating a new revision
 
@@ -161,10 +162,11 @@
     }
 
     ad_returnredirect "etp?[export_url_vars name]"
+    ad_script_abort
 }
 
 
-set page_title "$attribute_title for page \"$page_title\""
+set page_title "$attribute_title for page '$page_title'"
 
 if {$name == "index"} {
     set context [list [list "etp?[export_url_vars name]" Edit] $attribute_title]