Index: openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl,v
diff -u -r1.44.2.10 -r1.44.2.11
--- openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl	28 Oct 2015 09:38:35 -0000	1.44.2.10
+++ openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl	5 Jul 2016 12:10:52 -0000	1.44.2.11
@@ -780,6 +780,7 @@
     return $master_theme_options
 }
 
+
 ad_proc -public subsite::set_theme {
     -subsite_id
     {-theme:required}
@@ -796,6 +797,8 @@
         set subsite_id [ad_conn subsite_id]
     }
 
+    set old_theme [subsite::get_theme -subsite_id $subsite_id]
+
     db_1row get_theme_paths {}
 
     parameter::set_value -parameter ThemeKey -package_id $subsite_id \
@@ -818,8 +821,28 @@
         -value $resource_dir
     parameter::set_value -parameter StreamingHead -package_id $subsite_id \
         -value $streaming_head
+
+    
+    callback subsite::theme_changed \
+        -subsite_id $subsite_id \
+        -old_theme $old_theme \
+        -new_theme $theme
 }
 
+ad_proc -public -callback subsite::theme_changed {
+    -subsite_id:required
+    -old_theme:required
+    -new_theme:required
+} {
+
+    Callback for executing code after the subsite theme has been send changed
+    
+    @param subsite_id subsite, of which the theme was changed
+    @param old_theme the old theme
+    @param new_theme the new theme
+} -
+
+
 ad_proc -public subsite::save_theme_parameters_as_default {
     -subsite_id
     -theme
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/openacs-default-theme/tcl/theme-procs.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?