Index: openacs-4/packages/acs-admin/www/users/user-batch-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/user-batch-add.tcl,v
diff -u -N -r1.7 -r1.8
--- openacs-4/packages/acs-admin/www/users/user-batch-add.tcl	7 Aug 2017 23:47:45 -0000	1.7
+++ openacs-4/packages/acs-admin/www/users/user-batch-add.tcl	29 May 2018 08:34:41 -0000	1.8
@@ -10,13 +10,11 @@
 }
 
 set admin_user_id [ad_conn user_id]
-set admin_email [db_string unused {
-    select email from parties where party_id = :admin_user_id
-}]
-set administration_name [db_string admin_name {
-    select first_names || ' ' || last_name from persons where person_id = :admin_user_id
-}]
 
+set admin [acs_user::get -user_id $admin_user_id]
+set email               [dict get $admin email]
+set administration_name [dict get $admin name]
+
 set context [list [list "./" "Users"] "Notify added user"]
 set system_name [ad_system_name]
 set export_vars [export_vars -form {email first_names last_name user_id}]