Index: openacs-4/packages/dotlrn-calendar/sql/oracle/dotlrn-calendar-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-calendar/sql/oracle/dotlrn-calendar-create.sql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn-calendar/sql/oracle/dotlrn-calendar-create.sql	29 Nov 2001 22:51:46 -0000	1.2
+++ openacs-4/packages/dotlrn-calendar/sql/oracle/dotlrn-calendar-create.sql	25 Feb 2002 14:06:36 -0000	1.3
@@ -86,6 +86,15 @@
 	       'TCL'
 	);
 
+	-- RemoveUserFromCommunity
+	foo := acs_sc_impl.new_alias (
+	       'dotlrn_applet',
+	       'dotlrn_calendar',
+	       'RemoveUserFromCommunity',
+	       'dotlrn_calendar::remove_user_from_community',
+	       'TCL'
+	);
+
 	-- Add the binding
 	acs_sc_binding.new (
 	    contract_name => 'dotlrn_applet',
Index: openacs-4/packages/dotlrn-calendar/tcl/dotlrn-calendar-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-calendar/tcl/dotlrn-calendar-procs.tcl,v
diff -u -r1.28 -r1.29
--- openacs-4/packages/dotlrn-calendar/tcl/dotlrn-calendar-procs.tcl	20 Feb 2002 20:20:09 -0000	1.28
+++ openacs-4/packages/dotlrn-calendar/tcl/dotlrn-calendar-procs.tcl	25 Feb 2002 14:06:36 -0000	1.29
@@ -243,6 +243,14 @@
     }
 
     ad_proc -public remove_user {
+        user_id
+    } {
+        Remove a user entirely
+    } {
+        # FIXME: nothing for now
+    }
+
+    ad_proc -public remove_user_from_community {
 	community_id
 	user_id
     } {