Index: openacs-4/packages/assessment/lib/comments-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/comments-chunk.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/assessment/lib/comments-chunk.tcl	19 Jun 2018 07:48:37 -0000	1.5
+++ openacs-4/packages/assessment/lib/comments-chunk.tcl	28 Jun 2018 10:39:36 -0000	1.6
@@ -46,7 +46,7 @@
           and o.object_id = g.comment_id
 	  order by o.creation_date
     } {
-        set author [acs_user::get_element -user_id $creation_user -element "name"]
+        set author [person::name -person_id $creation_user]
         set html_content [ad_html_text_convert -from $mime_type -- $content]
         set edit_url [export_vars -base "${general_comments_url}comment-edit" {comment_id return_url}]
     }
Index: openacs-4/packages/assessment/www/asm-admin/request-notification.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/request-notification.tcl,v
diff -u -N -r1.8 -r1.9
--- openacs-4/packages/assessment/www/asm-admin/request-notification.tcl	29 May 2018 18:06:33 -0000	1.8
+++ openacs-4/packages/assessment/www/asm-admin/request-notification.tcl	28 Jun 2018 10:39:36 -0000	1.9
@@ -101,7 +101,7 @@
       from notification_requests nr
      where nr.object_id = :inter_item_check_id
 } {
-    set name [acs_user::get_element -user_id $user_id -element name]
+    set name [person::name -person_id $user_id]
 }
 
 # Local variables:
Index: openacs-4/packages/forums/lib/forums/forums-history-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/forums/forums-history-chunk.tcl,v
diff -u -N -r1.11 -r1.12
--- openacs-4/packages/forums/lib/forums/forums-history-chunk.tcl	25 Jun 2018 09:15:00 -0000	1.11
+++ openacs-4/packages/forums/lib/forums/forums-history-chunk.tcl	28 Jun 2018 10:39:36 -0000	1.12
@@ -65,7 +65,7 @@
      group by user_id
 } {
     if {$user_id > 0} {
-        set user_name [acs_user::get_element -user_id $user_id -element name]
+        set user_name [person::name -person_id $user_id]
         set user_url user-history?user_id=$user_id
     } else {
         set user_name $visitor_name
Index: openacs-4/packages/general-comments/tcl/general-comments-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/tcl/general-comments-procs.tcl,v
diff -u -N -r1.27 -r1.28
--- openacs-4/packages/general-comments/tcl/general-comments-procs.tcl	11 Jun 2018 15:15:31 -0000	1.27
+++ openacs-4/packages/general-comments/tcl/general-comments-procs.tcl	28 Jun 2018 10:39:36 -0000	1.28
@@ -162,12 +162,12 @@
                 and (:user_id is null or o.creation_user = :user_id)
               order by o.creation_date $sort_dir
     }] {
-        set author [acs_user::get_element -user_id $author -element name]
-        
+        set author [person::name -person_id $author]
+
         if {$content ne ""} {
             set content [template::util::richtext::get_property html_value [list $content $mime_type]]
         }
-        
+
         set pretty_date [lc_time_fmt $creation_date %x]
         set pretty_date2 [lc_time_fmt $creation_date "%q %X"]
 
Index: openacs-4/packages/general-comments/www/delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/delete.tcl,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/general-comments/www/delete.tcl	19 Jun 2018 07:58:41 -0000	1.6
+++ openacs-4/packages/general-comments/www/delete.tcl	28 Jun 2018 10:39:36 -0000	1.7
@@ -47,7 +47,7 @@
     ad_script_abort
 }
 
-set author [acs_user::get_element -user_id $creation_user -element name]
+set author [person::name -person_id $creation_user]
 set page_title [_ general-comments.Delete_a_comment]
 set context [list $page_title]
 
Index: openacs-4/packages/general-comments/www/view-comment.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/view-comment.tcl,v
diff -u -N -r1.13 -r1.14
--- openacs-4/packages/general-comments/www/view-comment.tcl	13 Jun 2018 14:14:38 -0000	1.13
+++ openacs-4/packages/general-comments/www/view-comment.tcl	28 Jun 2018 10:39:36 -0000	1.14
@@ -73,7 +73,7 @@
     ad_script_abort
 }
 
-set author [acs_user::get_element -user_id $creation_user -element name]
+set author [person::name -person_id $creation_user]
 
 db_multirow -extend {file_edit_url delete_attachment_url view_image_url} attachments get_attachments {
    select r.title,
Index: openacs-4/packages/general-comments/www/admin/delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/admin/delete.tcl,v
diff -u -N -r1.8 -r1.9
--- openacs-4/packages/general-comments/www/admin/delete.tcl	19 Jun 2018 09:35:47 -0000	1.8
+++ openacs-4/packages/general-comments/www/admin/delete.tcl	28 Jun 2018 10:39:36 -0000	1.9
@@ -46,7 +46,7 @@
     ad_script_abort
 }
 
-set author [acs_user::get_element -user_id $creation_user -element name]
+set author [person::name -person_id $creation_user]
 set page_title [_ general-comments.Delete_a_comment]
 set context [list $page_title]
 
Index: openacs-4/packages/general-comments/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/admin/index.tcl,v
diff -u -N -r1.9 -r1.10
--- openacs-4/packages/general-comments/www/admin/index.tcl	19 Jun 2018 09:51:27 -0000	1.9
+++ openacs-4/packages/general-comments/www/admin/index.tcl	28 Jun 2018 10:39:36 -0000	1.10
@@ -112,7 +112,7 @@
           [ad_dimensional_sql $dimensional]
     [template::list::orderby_clause -orderby -name comments_list]    
 }] {
-    set author [acs_user::get_element -user_id $creation_user -element name]
+    set author [person::name -person_id $creation_user]
     set live_version_p [expr {$live_version_p ? $yes : $no}]
     set approved_p [expr {$approved_p ? $yes : $no}]
     set pretty_date [lc_time_fmt $creation_date "%x %X"]
Index: openacs-4/packages/notifications/www/request-notification.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/www/request-notification.tcl,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/notifications/www/request-notification.tcl	30 May 2018 15:06:53 -0000	1.6
+++ openacs-4/packages/notifications/www/request-notification.tcl	28 Jun 2018 10:39:36 -0000	1.7
@@ -127,7 +127,7 @@
     }
     
 db_multirow -extend {name} notify_users notify_users {} {
-    set name [acs_user::get_element -user_id $request_user_id -element name]
+    set author [person::name -person_id $request_user_id]
 }