Index: openacs-4/packages/acs-bootstrap-installer/tcl/30-apm-load-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-bootstrap-installer/tcl/30-apm-load-procs.tcl,v diff -u -r1.31 -r1.32 --- openacs-4/packages/acs-bootstrap-installer/tcl/30-apm-load-procs.tcl 14 Dec 2003 16:08:46 -0000 1.31 +++ openacs-4/packages/acs-bootstrap-installer/tcl/30-apm-load-procs.tcl 26 Jan 2004 15:39:42 -0000 1.32 @@ -26,7 +26,7 @@ return [info exists apm_first_time_loading_p] } -ad_proc ad_after_server_initialization { name args } { +ad_proc -public ad_after_server_initialization { name args } { Registers code to run after server initialization is complete. @@ -37,7 +37,7 @@ nsv_lappend ad_after_server_initialization . [list name $name script [info script] args $args] } -ad_proc apm_guess_file_type { package_key path } { +ad_proc -public apm_guess_file_type { package_key path } { Guesses and returns the file type key corresponding to a particular path (or an empty string if none is known). $path should be @@ -370,7 +370,7 @@ return [expr ![file exists "${package_path}/sql"] || [file exists "${package_path}/sql/[db_type]"]] } -ad_proc apm_source { __file } { +ad_proc -private apm_source { __file } { Sources $__file in a clean environment, returning 1 if successful or 0 if not. Records that the file has been sourced and stores its mtime in the nsv array apm_library_mtime @@ -394,15 +394,15 @@ # Special boot strap load file routine. -ad_proc apm_bootstrap_load_file { root_directory file } { +ad_proc -private apm_bootstrap_load_file { root_directory file } { Source a single file during initial bootstrapping and set APM data. } { ns_log "Notice" "Loading [file tail $root_directory]/$file" apm_source "${root_directory}/${file}" } -ad_proc apm_bootstrap_load_libraries { +ad_proc -private apm_bootstrap_load_libraries { {-load_tests:boolean 0} {-init:boolean} {-procs:boolean}