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 -N -r1.4 -r1.5
--- openacs-4/packages/new-portal/www/render-element.tcl	9 Oct 2001 15:11:15 -0000	1.4
+++ openacs-4/packages/new-portal/www/render-element.tcl	9 Oct 2001 15:39:06 -0000	1.5
@@ -29,9 +29,14 @@
 
 # consistency is good.
 set element(region) $region
+set new_name ""
+regsub -all -- {-} $element(name) "_" new_name
+append new_name "::get_pretty_name"
 
-ns_log notice  "AKS5: [$element(name)::get_pretty_name]"
 
+ns_log notice  "AKS67: [$new_name]"
+
+set element(name) [$new_name]
 # return the appropriate template for that element.
 # AKS ???
 ad_return_template "layouts/mime-types/$element(mime_type_noslash)"