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 -N
--- /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 -N
--- /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>
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 -N
--- openacs-4/packages/acs-tcl/tcl/community-core-procs-2.tcl	29 May 2002 21:19:05 -0000	1.1
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,26 +0,0 @@
-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 -N
--- openacs-4/packages/acs-tcl/tcl/community-core-procs-2.xql	29 May 2002 21:19:05 -0000	1.1
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,16 +0,0 @@
-<?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>
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 -N -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}