Index: openacs-4/packages/acs-subsite/www/pvt/alerts.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/pvt/alerts.tcl,v
diff -u -N -r1.7 -r1.8
--- openacs-4/packages/acs-subsite/www/pvt/alerts.tcl	7 Aug 2017 23:47:59 -0000	1.7
+++ openacs-4/packages/acs-subsite/www/pvt/alerts.tcl	28 May 2018 18:00:16 -0000	1.8
@@ -14,15 +14,13 @@
 
 set user_id [ad_conn user_id]
 
-db_1row name_get {
-    select first_names, last_name, email, url
-    from persons, parties
-    where persons.person_id = parties.party_id and party_id =:user_id
-} -bind [ad_tcl_vars_to_ns_set user_id]
-
-if { $first_names ne "" || $last_name ne "" } {
-    set full_name "$first_names $last_name"
-} else {
+set user [acs_user::get -user_id $user_id]
+set first_names [dict get $user first_names]
+set last_name   [dict get $user last_name]
+set email       [dict get $user email]
+set url         [dict get $user url]
+set full_name   [dict get $user name]
+if { [string trim $full_name] eq "" } {
     set full_name "name unknown"
 }