Index: openacs-4/packages/acs-tcl/tcl/community-core-2-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/community-core-2-procs.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-tcl/tcl/community-core-2-procs.tcl	30 May 2002 15:45:59 -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-2-procs.tcl,v 1.1 2002/05/30 15:45:59 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-2-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/community-core-2-procs.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-tcl/tcl/community-core-2-procs.xql	30 May 2002 15:45:59 -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>
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/packages/acs-tcl/tcl/community-core-procs-2.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/packages/acs-tcl/tcl/community-core-procs-2.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/packages/acs-tcl/tcl/parameter-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/parameter-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-tcl/tcl/parameter-procs.tcl	15 May 2002 18:47:31 -0000	1.1
+++ openacs-4/packages/acs-tcl/tcl/parameter-procs.tcl	30 May 2002 15:45:59 -0000	1.2
@@ -55,6 +55,16 @@
         return $value
     }
 
+    ad_proc -public set_from_package_key {
+        {-package_key:required}
+        {-parameter:required}
+        {-value:required}
+    } {
+        set_value -package_id [apm_package_id_from_key $package_key] \
+                -parameter $parameter \
+                -value $value
+    }
+
     ad_proc -public get_from_package_key {
         {-package_key:required}
         {-parameter:required}