Index: openacs-4/packages/acs-admin/www/auth/authority.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/auth/authority.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-admin/www/auth/authority.tcl	11 Sep 2003 09:21:27 -0000	1.2
+++ openacs-4/packages/acs-admin/www/auth/authority.tcl	11 Sep 2003 09:42:23 -0000	1.3
@@ -134,7 +134,6 @@
         -mode $ad_form_mode \
         -form $form_widgets \
 -on_request {
-    
 } -edit_request {
 
     auth::authority::get -authority_id $authority_id -array element_array
@@ -143,6 +142,10 @@
         set $element_name $element_array($element_name)
     }
 
+    set help_contact_text [template::util::richtext::create]
+    set help_contact_text [template::util::richtext::set_property contents $help_contact_text $element_array(help_contact_text)]
+    set help_contact_text [template::util::richtext::set_property format $help_contact_text  $element_array(help_contact_text_format)]
+    
 } -new_data {
 
     foreach var_name [template::form::get_elements -no_api authority] {
@@ -151,7 +154,8 @@
 
     set element_array(sort_order) ""
     set element_array(short_name) ""
-    set element_array(help_contact_text_format) $help_contact_text.format
+    set element_array(help_contact_text) [template::util::richtext::get_property contents $help_contact_text]
+    set element_array(help_contact_text_format) [template::util::richtext::get_property format $help_contact_text]
 
     auth::authority::create \
         -authority_id $authority_id \
@@ -165,6 +169,9 @@
         }
     }
 
+    set element_array(help_contact_text) [template::util::richtext::get_property contents $help_contact_text]
+    set element_array(help_contact_text_format) [template::util::richtext::get_property format $help_contact_text]
+
     auth::authority::edit \
         -authority_id $authority_id \
         -array element_array