Index: openacs-4/packages/new-portal/www/render-element.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/www/render-element.tcl,v diff -u -r1.8 -r1.9 --- openacs-4/packages/new-portal/www/render-element.tcl 13 Nov 2001 17:35:48 -0000 1.8 +++ openacs-4/packages/new-portal/www/render-element.tcl 14 Nov 2001 20:20:20 -0000 1.9 @@ -19,21 +19,20 @@ if { [ad_parameter show_datasource_errors_p] == 1} { set element(content) "
$errmsg
" - set element(mime_type) "text/html" } else { return } } else { array set element $element_data } -# consistency is good. +# consistency is good. XXX set element(region) $region set new_name "" regsub -all -- {-} $element(name) "_" new_name append new_name "::get_pretty_name" set element(name) [$new_name] # return the appropriate template for that element. -ad_return_template "[portal::www_path]/layouts/mime-types/$element(mime_type_noslash)" +ad_return_template