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.5 -r1.6
--- openacs-4/packages/acs-tcl/tcl/community-core-procs.xql	2 Sep 2003 12:02:11 -0000	1.5
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs.xql	2 Sep 2003 14:21:30 -0000	1.6
@@ -138,6 +138,17 @@
       </querytext>
 </fullquery>
 
+<fullquery name="acs_user::get_by_username.user_id_from_username">      
+      <querytext>
+
+            select user_id
+            from   users
+            where  username = :username
+            and    authority_id =:authority_id
+
+      </querytext>
+</fullquery>
+
 <fullquery name="party::update.party_update">      
       <querytext>