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.52 -r1.53
--- openacs-4/packages/dotlrn/tcl/community-procs.xql	28 Apr 2002 18:56:29 -0000	1.52
+++ openacs-4/packages/dotlrn/tcl/community-procs.xql	30 Apr 2002 21:23:30 -0000	1.53
@@ -315,6 +315,12 @@
 </querytext>
 </fullquery>
 
+<fullquery name="dotlrn_community::set_community_name.update_community_name">
+<querytext>
+update dotlrn_communities set pretty_name = :pretty_name where community_id= :community_id
+</querytext>
+</fullquery>
+
 <fullquery name="dotlrn_community::get_community_name_not_cached.select_community_name">
 <querytext>
 select pretty_name from dotlrn_communities where community_id= :community_id
@@ -366,10 +372,10 @@
 </querytext>
 </fullquery>
 
-<fullquery name="dotlrn_community::remove_applet.delete_applet">
+<fullquery name="dotlrn_community::remove_applet.delete_applet_from_community">
 <querytext>
-delete from dotlrn_community_applets where
-community_id= :community_id and applet_key= :applet_key
+delete from dotlrn_community_applets 
+where community_id= :community_id and applet_id = :applet_id
 </querytext>
 </fullquery>