Index: openacs-4/packages/static-portlet/www/static-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/static-portlet/www/static-portlet.tcl,v
diff -u -N -r1.9 -r1.10
--- openacs-4/packages/static-portlet/www/static-portlet.tcl	13 Jan 2005 13:58:43 -0000	1.9
+++ openacs-4/packages/static-portlet/www/static-portlet.tcl	8 Aug 2006 21:27:12 -0000	1.10
@@ -30,7 +30,7 @@
 set success_p 0
 
 set success_p [db_0or1row select_content {
-  select body as content, pretty_name
+  select body, pretty_name, format
   from static_portal_content
   where content_id = :content_id
 }]
@@ -39,8 +39,7 @@
 set class_instances_pretty_name [_ dotlrn.class_instances_pretty_name]
 set pretty_name [lang::util::localize $pretty_name]
 
+set content_w [template::util::richtext::create $body $format]
+set content [template::util::richtext::get_property html_value $content_w]
 
-if { [regexp {^\{(.*)\} text/html$} $content match elhtml] } {
-  set content $elhtml
-  }