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 } {