Index: openacs-4/packages/assessment/www/asm-admin/admin-request.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/admin-request.tcl,v
diff -u -N -r1.7 -r1.8
--- openacs-4/packages/assessment/www/asm-admin/admin-request.tcl	29 May 2018 18:28:48 -0000	1.7
+++ openacs-4/packages/assessment/www/asm-admin/admin-request.tcl	28 Jun 2018 12:07:49 -0000	1.8
@@ -195,7 +195,7 @@
 }]
 
 db_multirow -extend {user_name request_url} actions_log actions_log $query {
-    set user_name [acs_user::get_element -user_id $subject_id -element name]
+    set user_name [person::name -person_id $user_id]
     set request_url [export_vars -base "request-notification" {assessment_id {section_id $section_id_from} inter_item_check_id}]
 }
 
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.47 -r1.48
--- openacs-4/packages/dotlrn/www/dotlrn-master.tcl	28 Jun 2018 11:54:02 -0000	1.47
+++ openacs-4/packages/dotlrn/www/dotlrn-master.tcl	28 Jun 2018 12:07:49 -0000	1.48
@@ -165,7 +165,7 @@
 if { [ad_conn untrusted_user_id] == 0 } {
     set user_name {}
 } else {
-    set user_name [person::name -user_id [ad_conn untrusted_user_id]]
+    set user_name [person::name -person_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.20 -r1.21
--- openacs-4/packages/dotlrn/www/register.tcl	28 Jun 2018 11:54:02 -0000	1.20
+++ openacs-4/packages/dotlrn/www/register.tcl	28 Jun 2018 12:07:49 -0000	1.21
@@ -90,7 +90,7 @@
 
             set query [db_map bulk_mail_query]
 
-            set full_name [person::name -user_id $user_id]
+            set full_name [person::name -person_id $user_id]
             set email [party::email -party_id $user_id]
             set subject "$full_name ($email) has requested to join $community_name."
 
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.9 -r1.10
--- openacs-4/packages/dotlrn/www/weblog-new.tcl	28 Jun 2018 11:54:02 -0000	1.9
+++ openacs-4/packages/dotlrn/www/weblog-new.tcl	28 Jun 2018 12:07:49 -0000	1.10
@@ -34,7 +34,7 @@
 if {![llength $existing_forum_ids]} {
     #No existing weblog lets make them one.
 
-    set user_name [person::name -user_id $user_id]
+    set user_name [person::name -person_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.101 -r1.102
--- openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl	28 Jun 2018 11:54:02 -0000	1.101
+++ openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl	28 Jun 2018 12:07:49 -0000	1.102
@@ -281,7 +281,7 @@
         One time user-specific init
     } {
         # Message lookups below need variable user_name
-        set user_name [person::name -user_id $user_id]
+        set user_name [person::name -person_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 [person::name -user_id $user_id]
+        set user_name [person::name -person_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/theme-selva/www/selva-lrn-master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/theme-selva/www/selva-lrn-master.tcl,v
diff -u -N -r1.11 -r1.12
--- openacs-4/packages/theme-selva/www/selva-lrn-master.tcl	5 Apr 2018 14:44:09 -0000	1.11
+++ openacs-4/packages/theme-selva/www/selva-lrn-master.tcl	28 Jun 2018 12:07:49 -0000	1.12
@@ -128,7 +128,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/theme-selva/www/doc/selva-master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/theme-selva/www/doc/selva-master.tcl,v
diff -u -N -r1.7 -r1.8
--- openacs-4/packages/theme-selva/www/doc/selva-master.tcl	12 Apr 2018 07:04:16 -0000	1.7
+++ openacs-4/packages/theme-selva/www/doc/selva-master.tcl	28 Jun 2018 12:07:49 -0000	1.8
@@ -149,7 +149,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/theme-zen/lib/lrn-master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/theme-zen/lib/lrn-master.tcl,v
diff -u -N -r1.19 -r1.20
--- openacs-4/packages/theme-zen/lib/lrn-master.tcl	27 Jun 2018 16:11:45 -0000	1.19
+++ openacs-4/packages/theme-zen/lib/lrn-master.tcl	28 Jun 2018 12:07:49 -0000	1.20
@@ -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]]
 }
 
 # Set page title
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.6 -r1.7
--- openacs-4/packages/views/lib/views-chunk.tcl	28 Jun 2018 11:54:02 -0000	1.6
+++ openacs-4/packages/views/lib/views-chunk.tcl	28 Jun 2018 12:07:49 -0000	1.7
@@ -33,7 +33,7 @@
 } else {
     if {[info exists viewer_id]} {
         if {$viewer_id ne ""} {
-            set user_filter_label [person::name -user_id $viewer_id]
+            set user_filter_label [person::name -person_id $viewer_id]
         } else {
             set user_filter_label "Current User"
             unset viewer_id