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.9 -r1.10
--- openacs-4/packages/new-portal/www/render-element.tcl	14 Nov 2001 20:20:20 -0000	1.9
+++ openacs-4/packages/new-portal/www/render-element.tcl	17 Nov 2001 16:02:39 -0000	1.10
@@ -14,7 +14,7 @@
 # if there's an error, report it.
 if { [catch {set element_data [portal::evaluate_element $element_id $theme_id] } errmsg ] } {
     if { [ad_parameter log_datasource_errors_p] == 1} {
-	ns_log Error "portal: $errmsg"
+	ns_log Error "render-element.tcl (after eval): $errmsg"
     }
     
     if { [ad_parameter show_datasource_errors_p] == 1} {
@@ -26,13 +26,5 @@
     array set element $element_data
 }
 
-# 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