Index: openacs-4/packages/bboard-portlet/tcl/bboard-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bboard-portlet/tcl/bboard-portlet-procs.tcl,v
diff -u -N -r1.36 -r1.37
--- openacs-4/packages/bboard-portlet/tcl/bboard-portlet-procs.tcl	14 Feb 2002 16:47:21 -0000	1.36
+++ openacs-4/packages/bboard-portlet/tcl/bboard-portlet-procs.tcl	12 Mar 2002 05:15:46 -0000	1.37
@@ -55,7 +55,7 @@
 
 	if {[llength $element_id_list] == 0} {
 	    # Tell portal to add this element to the page
-	    set element_id [portal::add_element $portal_id [my_name]]
+	    set element_id [portal::add_element -pretty_name "Forums"  $portal_id [my_name]]
 	    # There is already a value for the param which must be overwritten
 	    portal::set_element_param $element_id instance_id $instance_id
 	    set package_id_list [list]
Index: openacs-4/packages/calendar-portlet/tcl/calendar-full-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-portlet/tcl/calendar-full-portlet-procs.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/calendar-portlet/tcl/calendar-full-portlet-procs.tcl	11 Feb 2002 03:48:42 -0000	1.1
+++ openacs-4/packages/calendar-portlet/tcl/calendar-full-portlet-procs.tcl	12 Mar 2002 05:16:01 -0000	1.2
@@ -53,6 +53,7 @@
         return [portal::add_element_or_append_id -portal_id $portal_id \
                 -page_id $page_id \
                 -portlet_name [my_name] \
+                -pretty_name [get_pretty_name] \
                 -value_id $calendar_id \
                 -key calendar_id]
     }
Index: openacs-4/packages/calendar-portlet/tcl/calendar-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-portlet/tcl/calendar-portlet-procs.tcl,v
diff -u -N -r1.20 -r1.21
--- openacs-4/packages/calendar-portlet/tcl/calendar-portlet-procs.tcl	11 Feb 2002 03:35:14 -0000	1.20
+++ openacs-4/packages/calendar-portlet/tcl/calendar-portlet-procs.tcl	12 Mar 2002 05:16:07 -0000	1.21
@@ -53,6 +53,7 @@
         return [portal::add_element_or_append_id -portal_id $portal_id \
                 -page_id $page_id \
                 -portlet_name [my_name] \
+                -pretty_name [get_pretty_name] \
                 -value_id $calendar_id \
                 -key calendar_id]
     }
Index: openacs-4/packages/dotlrn/tcl/dotlrn-main-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-main-portlet-procs.tcl,v
diff -u -N -r1.18 -r1.19
--- openacs-4/packages/dotlrn/tcl/dotlrn-main-portlet-procs.tcl	23 Jan 2002 00:15:43 -0000	1.18
+++ openacs-4/packages/dotlrn/tcl/dotlrn-main-portlet-procs.tcl	12 Mar 2002 05:16:20 -0000	1.19
@@ -44,11 +44,9 @@
         @author arjun@openforce.net
         @creation-date Nov 2001
     } {
+
         # Tell portal to add this element to the page
-        set element_id [portal::add_element \
-                -page_id $page_id \
-                -force_region 2 \
-                $portal_id [my_name]]
+        set element_id [portal::add_element -force_region 2 -page_id $page_id -pretty_name [get_pretty_name] $portal_id [my_name]]
 
         return $element_id
     }
Index: openacs-4/packages/dotlrn-calendar/tcl/dotlrn-calendar-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-calendar/tcl/dotlrn-calendar-procs.tcl,v
diff -u -N -r1.35 -r1.36
--- openacs-4/packages/dotlrn-calendar/tcl/dotlrn-calendar-procs.tcl	6 Mar 2002 18:22:42 -0000	1.35
+++ openacs-4/packages/dotlrn-calendar/tcl/dotlrn-calendar-procs.tcl	12 Mar 2002 05:17:39 -0000	1.36
@@ -95,8 +95,10 @@
 	calendar_portlet::make_self_available $portal_template_id
 
 	set element_id \
-		[portal::add_element $portal_template_id \
-		[calendar_portlet::my_name]]
+                [portal::add_element \
+                		-pretty_name [get_pretty_name] \
+                                $portal_template_id \
+                                [calendar_portlet::my_name]]
 
 	# set the group_calendar_id parameter in the portal template,
 	portal::set_element_param \
Index: openacs-4/packages/dotlrn-research/tcl/research-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-research/tcl/Attic/research-portlet-procs.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/dotlrn-research/tcl/research-portlet-procs.tcl	25 Feb 2002 22:13:00 -0000	1.1
+++ openacs-4/packages/dotlrn-research/tcl/research-portlet-procs.tcl	12 Mar 2002 05:18:59 -0000	1.2
@@ -51,6 +51,7 @@
             -portal_id $portal_id \
             -page_id $page_id \
             -portlet_name [my_name] \
+            -pretty_name [get_pretty_name] \
             -key "party_id" \
             -value_id $party_id
         ]
Index: openacs-4/packages/faq-portlet/tcl/faq-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/faq-portlet/tcl/faq-portlet-procs.tcl,v
diff -u -N -r1.22 -r1.23
--- openacs-4/packages/faq-portlet/tcl/faq-portlet-procs.tcl	25 Feb 2002 20:37:51 -0000	1.22
+++ openacs-4/packages/faq-portlet/tcl/faq-portlet-procs.tcl	12 Mar 2002 05:17:48 -0000	1.23
@@ -54,7 +54,11 @@
 
 	if {[llength $element_id_list] == 0} {
 	    # Tell portal to add this element to the page
-	    set element_id [portal::add_element $portal_id [my_name]]
+	    set element_id [portal::add_element \
+                    -pretty_name [get_pretty_name] \
+                    $portal_id \
+                    [my_name]]
+
 	    # There is already a value for the param which must be overwritten
 	    portal::set_element_param $element_id package_id $package_id
 	    set package_id_list [list]
Index: openacs-4/packages/fs-portlet/tcl/fs-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/fs-portlet/tcl/fs-portlet-procs.tcl,v
diff -u -N -r1.29 -r1.30
--- openacs-4/packages/fs-portlet/tcl/fs-portlet-procs.tcl	4 Mar 2002 22:43:45 -0000	1.29
+++ openacs-4/packages/fs-portlet/tcl/fs-portlet-procs.tcl	12 Mar 2002 05:18:01 -0000	1.30
@@ -54,8 +54,10 @@
     } {
         set extra_params [list "package_id" $instance_id]
 
-        return [portal::add_element_or_append_id -portal_id $portal_id \
+        return [portal::add_element_or_append_id \
+                -portal_id $portal_id \
                 -page_id $page_id \
+                -pretty_name [get_pretty_name] \
                 -portlet_name [my_name] \
                 -value_id $folder_id \
                 -key folder_id \
Index: openacs-4/packages/news-portlet/tcl/news-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-portlet/tcl/news-portlet-procs.tcl,v
diff -u -N -r1.10 -r1.11
--- openacs-4/packages/news-portlet/tcl/news-portlet-procs.tcl	25 Feb 2002 20:37:43 -0000	1.10
+++ openacs-4/packages/news-portlet/tcl/news-portlet-procs.tcl	12 Mar 2002 05:19:17 -0000	1.11
@@ -54,7 +54,11 @@
 
 	if {[llength $element_id_list] == 0} {
 	    # Tell portal to add this element to the page
-	    set element_id [portal::add_element $portal_id [my_name]]
+	    set element_id [portal::add_element \
+                    -pretty_name [get_pretty_name] \
+                    $portal_id \
+                    [my_name]]
+
 	    # There is already a value for the param which must be overwritten
 	    portal::set_element_param $element_id community_id $instance_id
 	    set package_id_list [list]