ad_core_docs_uninstalled_packages_internal (private)

 ad_core_docs_uninstalled_packages_internal

Defined in packages/acs-core-docs/tcl/acs-core-docs-procs.tcl

Returns a list (in array set format) of package.key package-name (used for display on the index.adp page).

Author:
Jeff Davis <davis@xarg.net>

Partial Call Graph (max 5 caller/called nodes):
%3 ad_core_docs_uninstalled_packages ad_core_docs_uninstalled_packages (private) ad_core_docs_uninstalled_packages_internal ad_core_docs_uninstalled_packages_internal ad_core_docs_uninstalled_packages->ad_core_docs_uninstalled_packages_internal apm_package_registered_p apm_package_registered_p (public) ad_core_docs_uninstalled_packages_internal->apm_package_registered_p apm_read_package_info_file apm_read_package_info_file (public) ad_core_docs_uninstalled_packages_internal->apm_read_package_info_file apm_scan_packages apm_scan_packages (public) ad_core_docs_uninstalled_packages_internal->apm_scan_packages

Testcases:
No testcase defined.
Source code:
    set uninstalled [list]
    # Determine which spec files are not installed
    foreach spec_file [apm_scan_packages "$::acs::rootdir/packages"] {
        if { ! [catch {array set version [apm_read_package_info_file $spec_file]} errMsg] } {
            if { ! [apm_package_registered_p $version(package.key)] } {
                if {$version(package-name) eq ""} {
                    set version(package-name) $version(package.key)
                }
                lappend uninstalled [list $version(package.key) $version(package-name)]
            }
        }
    }

    # sort the list and return in array set form
    set out [list]
    foreach pkg [lsort -dictionary -index 1 $uninstalled] {
        lappend out {*}$pkg
    }
    return  $out
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: