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.6.6.1.4.2 -r1.6.6.1.4.3
--- openacs-4/packages/static-portlet/www/static-portlet.tcl	10 Nov 2004 14:01:48 -0000	1.6.6.1.4.2
+++ openacs-4/packages/static-portlet/www/static-portlet.tcl	19 Jul 2005 17:45:20 -0000	1.6.6.1.4.3
@@ -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
-  }