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.35 -r1.36
--- openacs-4/packages/dotlrn/tcl/community-procs.xql	13 Mar 2002 06:14:09 -0000	1.35
+++ openacs-4/packages/dotlrn/tcl/community-procs.xql	14 Mar 2002 23:47:40 -0000	1.36
@@ -256,6 +256,12 @@
 </querytext>
 </fullquery>
 
+<fullquery name="dotlrn_community::get_community_key.select_community_key">
+<querytext>
+select community_key from dotlrn_communities where community_id= :community_id
+</querytext>
+</fullquery>
+
 <fullquery name="dotlrn_community::not_closed_p.check_community_not_closed">
 <querytext>
 select 1 from dotlrn_active_comms_not_closed where community_id= :community_id