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.20 -r1.21
--- openacs-4/packages/dotlrn/tcl/community-procs.xql	10 Jan 2002 19:30:17 -0000	1.20
+++ openacs-4/packages/dotlrn/tcl/community-procs.xql	19 Jan 2002 18:32:00 -0000	1.21
@@ -31,7 +31,7 @@
 
 <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
+update dotlrn_communities set portal_template_id = :portal_template_id, portal_id = :portal_id, admin_portal_id= :admin_portal_id where community_id = :community_id
 </querytext>
 </fullquery>
 
@@ -111,6 +111,12 @@
 </querytext>
 </fullquery>
 
+<fullquery name="dotlrn_community::get_community_admin_portal_id.select_community_admin_portal_id">
+<querytext>
+select admin_portal_id from dotlrn_communities where community_id= :community_id
+</querytext>
+</fullquery>
+
 <fullquery name="dotlrn_community::get_all_communities_by_user.select_communities_by_user">
   <querytext>
     select dotlrn_communities.community_id,