Index: openacs-4/packages/acs-subsite/tcl/subsite-callback-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/subsite-callback-procs.tcl,v diff -u -N -r1.1.1.1 -r1.1.1.1.14.1 --- openacs-4/packages/acs-subsite/tcl/subsite-callback-procs.tcl 13 Mar 2001 22:59:26 -0000 1.1.1.1 +++ openacs-4/packages/acs-subsite/tcl/subsite-callback-procs.tcl 28 Sep 2005 18:18:20 -0000 1.1.1.1.14.1 @@ -74,3 +74,34 @@ } } } + +ad_proc -public -callback subsite::parameter_changed { + -package_id:required + -parameter:required + -value:required +} { +} + +ad_proc -public -callback subsite::parameter_changed -impl subsite { + -package_id:required + -parameter:required + -value:required +} { + Implementation of subsite::parameter_changed for subsite itself. This proc will simply set the parameter + + @author Nima Mazloumi (nima.mazloumi@gmx.de) + @creation-date 2005-08-17 + + @param package_id the package_id of the package the parameter was changed for + @param parameter the parameter name + @param value the new value + + @see package::set_value +} { + ns_log Debug "subsite::parameter_changed -impl subsite changing $parameter to $value" + + parameter::set_value \ + -package_id $package_id \ + -parameter $parameter \ + -value $value +}