Index: openacs-4/packages/acs-developer-support/tcl/acs-developer-support-init.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/tcl/acs-developer-support-init.tcl,v diff -u -r1.3 -r1.3.2.1 --- openacs-4/packages/acs-developer-support/tcl/acs-developer-support-init.tcl 17 May 2003 09:45:46 -0000 1.3 +++ openacs-4/packages/acs-developer-support/tcl/acs-developer-support-init.tcl 25 Nov 2003 11:44:42 -0000 1.3.2.1 @@ -30,4 +30,4 @@ ds_set_user_switching_enabled [ad_parameter -package_id [ds_instance_id] UserSwitchingEnabledP acs-developer-support 0] } - +ds_watch_packages Index: openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl,v diff -u -r1.20 -r1.20.2.1 --- openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl 10 Nov 2003 13:11:00 -0000 1.20 +++ openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl 25 Nov 2003 11:44:42 -0000 1.20.2.1 @@ -440,3 +440,23 @@ } } } + +ad_proc -private ds_watch_packages {} { + Watch tcl libraries and xql files for packages listed + in the PackageWatchList parameter on server startup. + + @author Peter Marklund +} { + set package_watch_string [parameter::get_from_package_key \ + -package_key acs-developer-support \ + -parameter PackageWatchList] + + foreach package_key [split $package_watch_string] { + if { [apm_package_enabled_p $package_key] } { + ns_log Notice "Developer-support - watching all files for package $package_key" + apm_watch_all_files $package_key + } else { + ns_log Notice "developer support - not watching file for package $package_key as package is not enabled" + } + } +} \ No newline at end of file