apm_version_load_status version_idWhat it does:
If a version needs to be reloaded (i.e., a -procs.tcl
has changed
or been added since the version was loaded), returns "needs_reload".
If the version has never been loaded, returns "never_loaded". If the
version is up-to-date, returns "up_to_date".
Defined in: /web/philip/packages/acs-core/apm-procs.tcl
Source code:
# See if the version was never loaded. if { ![apm_version_loaded_p $version_id] } { return "never_loaded" } db_1row " select package_id, package_key from apm_package_version_info where version_id = $version_id " foreach file [apm_version_file_list -type "tcl_procs" $version_id] { # If $file has never been loaded, i.e., it has been added to the version # since the version was initially loaded, return needs_reload. if { ![nsv_exists apm_library_mtime "$package_key/$file"] } { return "needs_reload" } set full_path "[acs_package_root_dir $package_key]/$file" # If $file had a different mtime when it was last loaded, return # needs_reload. (If the file should exist but doesn't, just skip it.) if { [file exists $full_path] && [file mtime $full_path] != [nsv_get apm_library_mtime "$package_key/$file"] } { return "needs_reload" } } return "up_to_date"