Index: openacs.org-dev/packages/edit-this-page/www/etp-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/edit-this-page/www/etp-edit.tcl,v
diff -u -r1.1 -r1.2
--- openacs.org-dev/packages/edit-this-page/www/etp-edit.tcl	9 Jul 2002 17:35:08 -0000	1.1
+++ openacs.org-dev/packages/edit-this-page/www/etp-edit.tcl	23 Jan 2003 19:50:20 -0000	1.2
@@ -9,7 +9,7 @@
     attribute
 } -properties {
     page_title:onevalue
-    context_bar:onevalue
+    context:onevalue
     attribute_title:onevalue
     widget:onevalue
     form_vars:onevalue
@@ -61,7 +61,7 @@
     }
     append widget "</select>\n"
 } elseif {$type == "string" && [regexp -nocase {(rows|cols)} $html]} {
-    set widget "<textarea name=\"$attribute\" $html>$value</textarea>\n"
+    set widget "<textarea name=\"$attribute\" $html>[ad_quotehtml $value]</textarea>\n"
 } elseif {$type == "date"} {
     if [empty_string_p $value] {
 	set widget [ad_dateentrywidget datevalue]
@@ -80,9 +80,9 @@
 set page_title "$attribute_title for page \"$page_title\""
 
 if {$name == "index"} {
-    set context_bar [ad_context_bar [list "etp?[export_url_vars name]" Edit] $attribute_title]
+    set context [list [list "etp?[export_url_vars name]" Edit] $attribute_title]
 } else {
-    set context_bar [ad_context_bar [list $name $name] [list "etp?[export_url_vars name]" Edit] $attribute_title]
+    set context [list [list $name $name] [list "etp?[export_url_vars name]" Edit] $attribute_title]
 }