Index: openacs-4/packages/dotlrn/tcl/community-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs.tcl,v diff -u -r1.212 -r1.213 --- openacs-4/packages/dotlrn/tcl/community-procs.tcl 7 Aug 2017 23:48:09 -0000 1.212 +++ openacs-4/packages/dotlrn/tcl/community-procs.tcl 29 Sep 2017 13:54:16 -0000 1.213 @@ -1406,6 +1406,10 @@ -event rename \ -old_value $old_value \ -new_value $pretty_name + + callback dotlrn_community::set_community_name \ + -community_id $community_id \ + -pretty_name $pretty_name } ad_proc -public get_community_name { Index: openacs-4/packages/dotlrn/tcl/dotlrn-callback-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-callback-procs.tcl,v diff -u -r1.5 -r1.6 --- openacs-4/packages/dotlrn/tcl/dotlrn-callback-procs.tcl 7 Aug 2017 23:48:09 -0000 1.5 +++ openacs-4/packages/dotlrn/tcl/dotlrn-callback-procs.tcl 29 Sep 2017 13:54:16 -0000 1.6 @@ -10,6 +10,22 @@ @cvs-id $Id$ } + +#### Callback Hooks + +ad_proc -public -callback dotlrn_community::set_community_name { + -community_id + -pretty_name +} { + + Actions to be performed by other packages when a community changes + name. Note that dotlrn-specific packages (as applets) already + implement a way to react to actions. + +} - + + +#### Callbacks ad_proc -callback merge::MergeShowUserInfo -impl dotlrn { -user_id:required } {