Index: openacs.org-dev/packages/cms/www/modules/users/one-user.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/cms/www/modules/users/one-user.tcl,v
diff -u -r1.1.1.1 -r1.1.1.2
--- openacs.org-dev/packages/cms/www/modules/users/one-user.tcl	9 Jul 2002 17:35:04 -0000	1.1.1.1
+++ openacs.org-dev/packages/cms/www/modules/users/one-user.tcl	8 Oct 2002 15:47:03 -0000	1.1.1.2
@@ -6,32 +6,7 @@
 set passthrough "mount_point=$mount_point&parent_id=$parent_id"
 
 # Find basic user params
-template::query get_info info onerow "
-  select
-    p.first_names, p.last_name, 
-    pp.email, pp.url, 
-    u.screen_name,
-    to_char(u.last_visit, 'YYYY/MM/DD HH24:MI') as last_visit,
-    to_char(u.no_alerts_until, 'YYYY/MM/DD') as no_alerts_until
-  from
-    persons p, parties pp, users u
-  where
-    p.person_id = :id
-  and
-    pp.party_id = :id
-  and
-    u.user_id = :id
-"
+db_1row get_info "" -column_array info
 
 # Find the groups to which this user belongs
-template::query get_groups groups multirow "
-  select 
-    g.group_name, g.group_id
-  from
-    groups g, group_member_map m
-  where
-    m.group_id = g.group_id
-  and
-    m.member_id = :id
-"
-    
+db_multirow groups get_groups ""