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.15 -r1.16
--- openacs-4/packages/dotlrn/tcl/community-procs.xql	1 Dec 2001 23:16:27 -0000	1.15
+++ openacs-4/packages/dotlrn/tcl/community-procs.xql	3 Dec 2001 19:17:08 -0000	1.16
@@ -29,6 +29,13 @@
 </querytext>
 </fullquery>
 
+<fullquery name="dotlrn_community::new.update_portal_ids">
+<querytext>
+update dotlrn_communities set portal_template_id = :portal_template_id, portal_id = :portal_id where community_id = :community_id
+</querytext>
+</fullquery>
+
+
 <fullquery name="dotlrn_community::get_rel_segment_id.select_rel_segment_id">
 <querytext>
 select segment_id from rel_segments where group_id= :community_id and rel_type= :rel_type