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.12 -r1.13
--- openacs-4/packages/dotlrn/tcl/community-procs.xql	28 Nov 2001 00:22:47 -0000	1.12
+++ openacs-4/packages/dotlrn/tcl/community-procs.xql	29 Nov 2001 05:10:36 -0000	1.13
@@ -17,19 +17,15 @@
 </querytext>
 </fullquery>
 
-
-<fullquery name="dotlrn_community::new">
+<fullquery name="dotlrn_community::set_package_id.update_package_id">
 <querytext>
-insert into dotlrn_communities
-(community_id, community_type, community_key, pretty_name, description)
-values
-(:community_id, :community_type, :name, :pretty_name, :description)
+update dotlrn_communities set package_id= :package_id where community_id= :community_id
 </querytext>
 </fullquery>
 
-<fullquery name="dotlrn_community::set_package_id.update_package_id">
+<fullquery name="dotlrn_community::get_rel_segment_id.select_rel_segment_id">
 <querytext>
-update dotlrn_communities set package_id= :package_id where community_id= :community_id
+select segment_id from rel_segments where group_id= :community_id and rel_type= :rel_type
 </querytext>
 </fullquery>