Index: openacs-4/packages/dotlrn-dotlrn/tcl/dotlrn-members-staff-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-dotlrn/tcl/dotlrn-members-staff-procs.tcl,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/dotlrn-dotlrn/tcl/dotlrn-members-staff-procs.tcl	12 May 2002 18:15:03 -0000	1.6
+++ openacs-4/packages/dotlrn-dotlrn/tcl/dotlrn-members-staff-procs.tcl	13 May 2002 06:00:06 -0000	1.7
@@ -55,11 +55,21 @@
     ad_proc -public add_applet_to_community {
 	community_id
     } {
-	Add the dotlrn applet to a specific community
+	Add the dotlrn members staff applet to a specific community
     } {
 	set portal_id [dotlrn_community::get_portal_id -community_id $community_id]
+	dotlrn_members_staff_portlet::add_self_to_page \
+            -portal_id $portal_id \
+            -community_id $community_id
+    }
 
-	dotlrn_members_staff_portlet::add_self_to_page -portal_id $portal_id -community_id $community_id
+    ad_proc -public remove_applet_from_community {
+	community_id
+    } {
+        removes the dotlrn members staff applet from a community
+    } {
+	set portal_id [dotlrn_community::get_portal_id -community_id $community_id]
+	dotlrn_members_staff_portlet::remove_self_from_page -portal_id $portal_id 
     }
 
     ad_proc -public remove_applet {