Index: openacs-4/contrib/packages/portal/tcl/element-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/portal/tcl/element-procs.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/contrib/packages/portal/tcl/element-procs.tcl	12 Feb 2004 21:31:20 -0000	1.9
+++ openacs-4/contrib/packages/portal/tcl/element-procs.tcl	28 Feb 2004 02:23:30 -0000	1.10
@@ -30,7 +30,6 @@
     ad_proc -public new {
         {-portal_id:required}
         {-page_name ""}
-        {-pretty_name ""}
         {-region ""}
         {-state full}
         {-datasource_name:required}
@@ -60,9 +59,10 @@
         }
 
         set datasource_id [portal::datasource::get_id -name $datasource_name]
+        array set datasource [portal::datasource::get -datasource_id $datasource_id]
 
         if {[string match "" $name]} {
-            set name $datasource_name
+            set name $datasource(pretty_name)
         }
 
         set element_id [db_nextval portal_seq]