Index: openacs-4/packages/dotlrn/tcl/dotlrn-callback-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-callback-procs.xql,v
diff -u -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/dotlrn/tcl/dotlrn-callback-procs.xql	19 Jul 2005 22:20:26 -0000	1.1.2.1
+++ openacs-4/packages/dotlrn/tcl/dotlrn-callback-procs.xql	15 Sep 2005 22:45:59 -0000	1.1.2.2
@@ -21,4 +21,16 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="callback::contact::person_new::impl::dotlrn_user.get_community_id">
+        <querytext>	
+
+	select c.community_id 
+	  from acs_rels r, dotlrn_communities c 
+         where r.object_id_one = :contact_id 
+         and r.object_id_two = c.community_id
+
+        </querytext>
+    </fullquery>
+
+
 </queryset>