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 -r1.6.6.1.4.1 -r1.6.6.1.4.2 --- openacs-4/packages/static-portlet/www/static-portlet.tcl 22 Jun 2004 19:28:49 -0000 1.6.6.1.4.1 +++ openacs-4/packages/static-portlet/www/static-portlet.tcl 10 Nov 2004 14:01:48 -0000 1.6.6.1.4.2 @@ -22,7 +22,7 @@ @cvs_id $Id$ } -array set config $cf +array set config $cf # one piece of content only per portlet set content_id $config(content_id) @@ -38,3 +38,9 @@ # The pretty_name can be a message catalog key set class_instances_pretty_name [_ dotlrn.class_instances_pretty_name] set pretty_name [lang::util::localize $pretty_name] + + +if { [regexp {^\{(.*)\} text/html$} $content match elhtml] } { + set content $elhtml + } +