Index: openacs-4/packages/dotlrn-dotlrn/tcl/dotlrn-members-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-dotlrn/tcl/dotlrn-members-procs.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/dotlrn-dotlrn/tcl/dotlrn-members-procs.tcl	12 May 2002 18:35:20 -0000	1.9
+++ openacs-4/packages/dotlrn-dotlrn/tcl/dotlrn-members-procs.tcl	13 May 2002 06:00:06 -0000	1.10
@@ -96,11 +96,19 @@
 	return $community_id
     }
 
+    ad_proc -public remove_applet_from_community {
+        community_id
+    } {
+        remove the dotlrn members applet from a specific community
+    } {
+	set portal_id [dotlrn_community::get_portal_id -community_id $community_id]
+	dotlrn_members_portlet::remove_self_from_page -portal_id $portal_id
+    }
+
     ad_proc -public remove_applet {
-	community_id
 	package_id
     } {
-	remove the applet from the community
+	remove the applet from dotlrn
     } {
     }