Index: openacs-4/packages/new-portal/tcl/portal-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/portal-procs.tcl,v
diff -u -r1.111 -r1.112
--- openacs-4/packages/new-portal/tcl/portal-procs.tcl	30 Jan 2002 22:11:22 -0000	1.111
+++ openacs-4/packages/new-portal/tcl/portal-procs.tcl	18 Feb 2002 19:51:23 -0000	1.112
@@ -741,6 +741,7 @@
         {-force_region ""}
         {-page_id ""}
         {-page_num ""}
+        {-pretty_name ""}
         portal_id
         ds_name
     } {
@@ -752,6 +753,10 @@
         @param page_num the number of the portal page to add to, def 0 
         @param ds_name
     } {
+        if {[empty_string_p $pretty_name]} {
+            set pretty_name $ds_name
+        }
+
         if { [empty_string_p $page_num] && [empty_string_p $page_id] } {
             # neither page_num or page_id given, default to 0
             set page_id [portal::get_page_id -portal_id $portal_id -sort_key 0]
@@ -810,6 +815,7 @@
         return [add_element_to_region \
                     -page_id $page_id \
                     -layout_id $layout_id \
+                    -pretty_name $pretty_name \
                     $portal_id $ds_name $min_region]
     }
 
@@ -825,6 +831,7 @@
     ad_proc -private add_element_to_region { 
         {-layout_id:required}
         {-page_id ""}
+        {-pretty_name ""}
         portal_id
         ds_name
         region
@@ -835,6 +842,9 @@
         @param portal_id 
         @param ds_name
     } {
+        if {[empty_string_p $pretty_name]} {
+            set pretty_name $ds_name
+        }
 
         set ds_id [get_datasource_id $ds_name]        
 
Index: openacs-4/packages/new-portal/www/render_styles/individual/render-element.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/www/render_styles/individual/render-element.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/new-portal/www/render_styles/individual/render-element.tcl	14 Feb 2002 16:47:02 -0000	1.2
+++ openacs-4/packages/new-portal/www/render_styles/individual/render-element.tcl	18 Feb 2002 19:51:24 -0000	1.3
@@ -27,6 +27,7 @@
 
 # Added by Ben to bypass rendering if there's nada"
 if {[empty_string_p [string trim $element(content)]]} {
+    ns_log Notice "BMA-debug: empty!"
     set empty_p 1
 } else {
     set empty_p 0