Index: openacs-4/packages/acs-admin/www/apm/package-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/package-add.tcl,v
diff -u -N -r1.14 -r1.15
--- openacs-4/packages/acs-admin/www/apm/package-add.tcl	7 Aug 2017 23:47:45 -0000	1.14
+++ openacs-4/packages/acs-admin/www/apm/package-add.tcl	30 May 2018 15:53:54 -0000	1.15
@@ -7,11 +7,10 @@
 }
 
 set user_id [ad_conn user_id]
+set user [acs_user::get -user_id $user_id]
+set user_name [dict get $user name]
+set email     [dict get $user email]
 
-db_1row apm_get_name { 
-    select first_names || ' ' || last_name user_name, email from cc_users where user_id = :user_id
-}
-
 set package_id [db_nextval acs_object_id_seq]
 set version_id [db_nextval acs_object_id_seq]
 
Index: openacs-4/packages/acs-admin/www/apm/package-add.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/Attic/package-add.xql,v
diff -u -N
--- openacs-4/packages/acs-admin/www/apm/package-add.xql	28 Apr 2001 01:04:25 -0000	1.2
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,13 +0,0 @@
-<?xml version="1.0"?>
-<queryset>
-
-<fullquery name="apm_get_name">      
-      <querytext>
-       
-    select first_names || ' ' || last_name as user_name, email from cc_users where user_id = :user_id
-
-      </querytext>
-</fullquery>
-
- 
-</queryset>