apm::package_version::attributes::get_instance_name (private)

 apm::package_version::attributes::get_instance_name package_key

Defined in packages/acs-tcl/tcl/apm-install-procs.tcl

Return the package_instance_name which is used for naming instances in .LRN, every time that we are creating a class.

Parameters:

package_key

Author:

Cesar Hernandez

Partial Call Graph (max 5 caller/called nodes):

Testcases:

No testcase defined.

Source code:

    set version_id [apm_version_id_from_package_key $package_key]

    if {$version_id ne ""} {
        apm::package_version::attributes::get -version_id $version_id -array packages_names
        #
        # Special case for those (???) packages that do not have the
        # attribute package instance name, in this case return ""
        #
        if {![info exists packages_names(package_instance_name)]} {
            ns_log Warning "Package $package_key does not have an instance name."
            return ""
        }
        return $packages_names(package_instance_name)

    }

Generic XQL file:

packages/acs-tcl/tcl/apm-install-procs.xql

PostgreSQL XQL file:

packages/acs-tcl/tcl/apm-install-procs-postgresql.xql

Oracle XQL file:

packages/acs-tcl/tcl/apm-install-procs-oracle.xql