Index: openacs-4/packages/acs-tcl/tcl/community-core-procs-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/community-core-procs-2.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs-2.tcl	29 May 2002 21:19:05 -0000	1.1
@@ -0,0 +1,26 @@
+ad_library {
+
+    Community routines (dealing with users, parties, etc.).
+    Redone with scoping and nice abstraction (Ben)
+
+    @author Ben Adida (ben@openforce)
+    @date May 29th, 2002
+    @cvs-id $Id: community-core-procs-2.tcl,v 1.1 2002/05/29 21:19:05 ben Exp $
+
+}
+
+# The User Namespace
+namespace eval oacs::user {
+
+    ad_proc -public get {
+        {-user_id:required}
+        {-array:required}
+    } {
+        Load up user information
+    } {
+        # Upvar the Tcl Array
+        upvar $array row
+        db_1row select_user {} -column_array row
+    }
+
+}
Index: openacs-4/packages/acs-tcl/tcl/community-core-procs-2.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/community-core-procs-2.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs-2.xql	29 May 2002 21:19:05 -0000	1.1
@@ -0,0 +1,16 @@
+<?xml version="1.0"?>
+<queryset>
+
+<fullquery name="oacs::user::get.select_user">
+<querytext>
+select user_id, screen_name, last_visit, second_to_last_visit,
+first_names, last_name, email, first_names || ' ' || last_name as full_name
+from users, parties, persons
+where 
+users.user_id = parties.party_id and
+users.user_id = persons.person_id and
+user_id= :user_id
+</querytext>
+</fullquery>
+ 
+</queryset>