Index: openacs-4/packages/dotlrn-dotlrn/tcl/dotlrn-dotlrn-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-dotlrn/tcl/dotlrn-dotlrn-procs.tcl,v diff -u -r1.41.2.1 -r1.41.2.2 --- openacs-4/packages/dotlrn-dotlrn/tcl/dotlrn-dotlrn-procs.tcl 14 Feb 2019 16:15:01 -0000 1.41.2.1 +++ openacs-4/packages/dotlrn-dotlrn/tcl/dotlrn-dotlrn-procs.tcl 24 Aug 2020 14:58:42 -0000 1.41.2.2 @@ -152,7 +152,7 @@ "[applet_key] remove_applet_from_community not implemented!" } - ad_proc -public add_user { + ad_proc -private add_user { user_id } { Called for one time init when this user is added to dotlrn. @@ -162,15 +162,15 @@ # noop } - ad_proc -public remove_user { + ad_proc -private remove_user { user_id } { remove a user from dotlrn } { # noop } - ad_proc -public add_user_to_community { + ad_proc -private add_user_to_community { community_id user_id } { @@ -179,7 +179,7 @@ # noop } - ad_proc -public remove_user_from_community { + ad_proc -private remove_user_from_community { community_id user_id } { @@ -269,7 +269,7 @@ return [add_applet_to_community $new_community_id] } - ad_proc -public change_event_handler { + ad_proc -private change_event_handler { community_id event old_value 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.23 -r1.23.2.1 --- openacs-4/packages/dotlrn-dotlrn/tcl/dotlrn-members-procs.tcl 30 Jun 2018 22:13:39 -0000 1.23 +++ openacs-4/packages/dotlrn-dotlrn/tcl/dotlrn-members-procs.tcl 24 Aug 2020 14:58:42 -0000 1.23.2.1 @@ -96,28 +96,28 @@ dotlrn_members::remove_portlet $portal_id "" } - ad_proc -public add_user { + ad_proc -private add_user { user_id } { } { # noop } - ad_proc -public remove_user { + ad_proc -private remove_user { user_id } { } { # noop } - ad_proc -public add_user_to_community { + ad_proc -private add_user_to_community { community_id user_id } { } { } - ad_proc -public remove_user_from_community { + ad_proc -private remove_user_from_community { community_id user_id } { @@ -184,7 +184,7 @@ return [dotlrn_members::add_applet_to_community $new_community_id] } - ad_proc -public change_event_handler { + ad_proc -private change_event_handler { community_id event old_value 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 -r1.17 -r1.17.2.1 --- openacs-4/packages/dotlrn-dotlrn/tcl/dotlrn-members-staff-procs.tcl 27 Mar 2018 14:22:30 -0000 1.17 +++ openacs-4/packages/dotlrn-dotlrn/tcl/dotlrn-members-staff-procs.tcl 24 Aug 2020 14:58:42 -0000 1.17.2.1 @@ -94,30 +94,30 @@ } { } - ad_proc -public add_user { + ad_proc -private add_user { user_id } { Called for one time init when this user is added to dotlrn } { # noop } - ad_proc -public remove_user { + ad_proc -private remove_user { user_id } { } { # noop } - ad_proc -public add_user_to_community { + ad_proc -private add_user_to_community { community_id user_id } { Called when a user is added to a spceific dotlrn community } { } - ad_proc -public remove_user_from_community { + ad_proc -private remove_user_from_community { community_id user_id } { @@ -158,7 +158,7 @@ return [add_applet_to_community $new_community_id] } - ad_proc -public change_event_handler { + ad_proc -private change_event_handler { community_id event old_value