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 -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 @@
+
+
+
+ select user_id
+ from users
+ where username = :username
+ and authority_id =:authority_id
+
+
+
+