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.62 -r1.63
--- openacs-4/packages/dotlrn-calendar/tcl/dotlrn-calendar-procs.tcl	13 Jul 2002 00:13:09 -0000	1.62
+++ openacs-4/packages/dotlrn-calendar/tcl/dotlrn-calendar-procs.tcl	31 Jul 2002 21:18:32 -0000	1.63
@@ -432,6 +432,31 @@
         db_dml copy_cal_item_types {}
     }
 
+    ad_proc -public change_event_handler {
+        community_id
+        event
+        old_value
+        new_value
+    } { 
+        listens for the following events: rename
+    } { 
+        switch $event {
+            rename {
+                handle_rename -community_id $community_id -old_value $old_value -new_value $new_value
+            }
+        }
+    }   
+
+    ad_proc -private handle_rename {
+        {-community_id:required}
+        {-old_value:required}
+        {-new_value:required}
+    } {
+        what to do in calendar when a dotlrn community is renamed
+    } {
+        calendar::rename -calendar_id [get_group_calendar_id -community_id $community_id] -name $new_value
+    }
+
     #
     # Some dotlrn_calendar specific procs
     #