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.30 -r1.31
--- openacs-4/packages/dotlrn/tcl/community-procs.xql	4 Mar 2002 23:54:00 -0000	1.30
+++ openacs-4/packages/dotlrn/tcl/community-procs.xql	5 Mar 2002 22:37:34 -0000	1.31
@@ -10,7 +10,6 @@
 </querytext>
 </fullquery>
 
-
 <fullquery name="dotlrn_community::set_type_package_id.update_package_id">
 <querytext>
 update dotlrn_community_types set package_id= :package_id where community_type= :community_type
@@ -23,6 +22,14 @@
 </querytext>
 </fullquery>
 
+    <fullquery name="dotlrn_community::get_parent_id.select_parent_id">
+        <querytext>
+            select dotlrn_communities.parent_community_id
+            from dotlrn_communities
+            where dotlrn_communities.community_id = :community_id
+        </querytext>
+    </fullquery>
+
 <fullquery name="dotlrn_community::get_type_node_id.select_node_id">
 <querytext>
 select node_id from site_nodes where object_id= (select package_id from dotlrn_community_types where community_type= :community_type)
@@ -179,31 +186,12 @@
 </querytext>
 </fullquery>
 
-<fullquery name="dotlrn_community::get_community_id.select_community">
-<querytext>
-select community_id from dotlrn_communities where package_id= :package_id
-</querytext>
-</fullquery>
-
-<fullquery name="dotlrn_community::get_parent_id.select_parent_id">
-<querytext>
-select parent_community_id from dotlrn_communities where community_id = :community_id
-</querytext>
-</fullquery>
-
 <fullquery name="dotlrn_community::get_subcomm_list.select_subcomms">
 <querytext>
 select community_id as subcomm_id from dotlrn_communities where parent_community_id = :community_id
 </querytext>
 </fullquery>
 
-<fullquery name="dotlrn_community::get_subcomm_chunk.select_subcomms">
-<querytext>
-select community_id as subcomm_id from dotlrn_communities where parent_community_id = :community_id
-</querytext>
-</fullquery>
-
-
 <fullquery name="dotlrn_community::get_community_type_package_id.select_package_id">
 <querytext>
 select package_id from dotlrn_community_types where community_type= :community_type
@@ -251,22 +239,6 @@
 </querytext>
 </fullquery>
 
-<fullquery name="dotlrn_community::get_applet_id_from_key.select">
-<querytext>
-select applet_id from dotlrn_applets where applet_key = :applet_key
-</querytext>
-</fullquery>
-
-
-<fullquery name="dotlrn_community::add_applet_to_dotlrn.insert">
-<querytext>
-insert into dotlrn_applets
-(applet_id, applet_key, status)
-values
-(:applet_id, :applet_key, :status)
-</querytext>
-</fullquery>
-
 <fullquery name="dotlrn_community::add_applet_to_community.insert">
 <querytext>
 insert into dotlrn_community_applets