Index: openacs-4/packages/dotlrn/www/dotlrn-master-kelp.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/dotlrn-master-kelp.tcl,v
diff -u -N -r1.11 -r1.12
--- openacs-4/packages/dotlrn/www/dotlrn-master-kelp.tcl	30 Apr 2018 09:14:23 -0000	1.11
+++ openacs-4/packages/dotlrn/www/dotlrn-master-kelp.tcl	28 Jun 2018 11:54:02 -0000	1.12
@@ -154,7 +154,7 @@
 if { [ad_conn untrusted_user_id] == 0 } {
     set user_name {}
 } else {
-    set user_name [acs_user::get_element -user_id [ad_conn untrusted_user_id] -element name]
+    set user_name [person::name -person_id [ad_conn untrusted_user_id]]
 }
 
 if {(![info exists title] || $title eq "")} {
Index: openacs-4/packages/dotlrn/www/dotlrn-master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/dotlrn-master.tcl,v
diff -u -N -r1.46 -r1.47
--- openacs-4/packages/dotlrn/www/dotlrn-master.tcl	30 Apr 2018 09:14:23 -0000	1.46
+++ openacs-4/packages/dotlrn/www/dotlrn-master.tcl	28 Jun 2018 11:54:02 -0000	1.47
@@ -165,7 +165,7 @@
 if { [ad_conn untrusted_user_id] == 0 } {
     set user_name {}
 } else {
-    set user_name [acs_user::get_element -user_id [ad_conn untrusted_user_id] -element name]
+    set user_name [person::name -user_id [ad_conn untrusted_user_id]]
 }
 
 if {![info exists title] || $title eq ""} {
Index: openacs-4/packages/dotlrn/www/register.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/register.tcl,v
diff -u -N -r1.19 -r1.20
--- openacs-4/packages/dotlrn/www/register.tcl	21 Jan 2018 00:38:38 -0000	1.19
+++ openacs-4/packages/dotlrn/www/register.tcl	28 Jun 2018 11:54:02 -0000	1.20
@@ -79,21 +79,21 @@
         }
         "needs approval" {
             dotlrn_community::add_user -member_state "needs approval" $community_id $user_id
-            
-            
+
+
             # Following the same process as spam.tcl to email
             # admins in bulk.
-            
+
             set segment_id [db_string select_admin_rel_segment_id {}]
             set community_name [dotlrn_community::get_community_name $community_id]
             set community_url "[parameter::get -package_id [ad_acs_kernel_id] -parameter SystemURL][dotlrn_community::get_community_url $community_id]"
-            
+
             set query [db_map bulk_mail_query]
 
-            set full_name [acs_user::get_element -user_id $user_id -element name]
+            set full_name [person::name -user_id $user_id]
             set email [party::email -party_id $user_id]
             set subject "$full_name ($email) has requested to join $community_name."
-            
+
             set message "$full_name ($email) has requested to join $community_name.
             
 Visit this link to approve or reject this request:
Index: openacs-4/packages/dotlrn/www/weblog-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/weblog-new.tcl,v
diff -u -N -r1.8 -r1.9
--- openacs-4/packages/dotlrn/www/weblog-new.tcl	19 Jan 2018 14:38:45 -0000	1.8
+++ openacs-4/packages/dotlrn/www/weblog-new.tcl	28 Jun 2018 11:54:02 -0000	1.9
@@ -34,7 +34,7 @@
 if {![llength $existing_forum_ids]} {
     #No existing weblog lets make them one.
 
-    set user_name [acs_user::get_element -user_id $user_id -element name]
+    set user_name [person::name -user_id $user_id]
     set name "[_ dotlrn.lt_Web_Log_for_user_name]"
     set charter "[_ dotlrn.Public_Web_Log]"
     set presentation_type "weblog"
Index: openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl,v
diff -u -N -r1.100 -r1.101
--- openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl	28 May 2018 13:13:00 -0000	1.100
+++ openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl	28 Jun 2018 11:54:02 -0000	1.101
@@ -281,7 +281,7 @@
         One time user-specific init
     } {
         # Message lookups below need variable user_name
-        set user_name [acs_user::get_element -user_id $user_id -element name]
+        set user_name [person::name -user_id $user_id]
 
         # get the root folder of dotlrn file storage instance
         set package_id [site_node_apm_integration::get_child_package_id \
@@ -365,7 +365,7 @@
     } {
         # reverse the logic done by add_user
         # Message lookups below need variable user_name
-        set user_name [acs_user::get_element -user_id $user_id -element name]
+        set user_name [person::name -user_id $user_id]
 
         # get the root folder of this package instance
         set package_id [site_node_apm_integration::get_child_package_id \
Index: openacs-4/packages/views/lib/views-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/views/lib/views-chunk.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/views/lib/views-chunk.tcl	7 Aug 2017 23:48:29 -0000	1.5
+++ openacs-4/packages/views/lib/views-chunk.tcl	28 Jun 2018 11:54:02 -0000	1.6
@@ -33,7 +33,7 @@
 } else {
     if {[info exists viewer_id]} {
         if {$viewer_id ne ""} {
-            set user_filter_label [acs_user::get_element -user_id $viewer_id -element name]
+            set user_filter_label [person::name -user_id $viewer_id]
         } else {
             set user_filter_label "Current User"
             unset viewer_id