Index: openacs-4/packages/acs-tcl/tcl/community-core-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/community-core-procs.xql,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/acs-tcl/tcl/community-core-procs.xql	2 Sep 2003 14:21:30 -0000	1.6
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs.xql	4 Sep 2003 13:07:03 -0000	1.7
@@ -97,7 +97,7 @@
 </fullquery>
 
  
-<fullquery name="acs_user::get.select_user_info">      
+<fullquery name="acs_user::get.select_user_info_from_user_id">      
       <querytext>
 
           select user_id, 
@@ -123,11 +123,43 @@
                  member_state,
                  rel_id
           from   cc_users 
-          where  user_id=:user_id
+          where  user_id = :user_id
 
       </querytext>
 </fullquery>
  
+<fullquery name="acs_user::get.select_user_info_from_username">
+      <querytext>
+
+          select user_id, 
+                 username,
+                 authority_id,
+                 first_names, 
+                 last_name, 
+                 first_names || ' ' || last_name as name,
+                 email, 
+                 url, 
+                 screen_name,
+                 priv_name,  
+                 priv_email,
+                 email_verified_p,
+                 email_bouncing_p,
+                 no_alerts_until,
+                 last_visit,
+                 second_to_last_visit,
+                 n_sessions,
+                 password_question,
+                 password_answer,
+                 password_changed_date,
+                 member_state,
+                 rel_id
+          from   cc_users 
+          where  authority_id = :authority_id
+          and    username = :username
+
+      </querytext>
+</fullquery>
+ 
 <fullquery name="acs_user::update.user_update">      
       <querytext>