Index: openacs-4/packages/dotlrn/tcl/community-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs.xql,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/dotlrn/tcl/community-procs.xql	12 Oct 2001 18:15:21 -0000	1.4
+++ openacs-4/packages/dotlrn/tcl/community-procs.xql	5 Nov 2001 22:34:23 -0000	1.5
@@ -73,6 +73,12 @@
 </querytext>
 </fullquery>
 
+<fullquery name="dotlrn_community::get_workspace_page_id.select_user_page_id">
+<querytext>
+select page_id from dotlrn_users where user_id= :user_id
+</querytext>
+</fullquery>
+
 <fullquery name="dotlrn_community::get_communities_by_user.select_communities">
 <querytext>
 select dotlrn_communities.community_id as community_id, community_type, pretty_name, description, package_id