apm_version_load_status

one of the documented procedures in this installation of the ACS
Usage:
apm_version_load_status   version_id
What 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"


philg@mit.edu