apm::get_package_descendent_options (public)

 apm::get_package_descendent_options package_key

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

Get a list of pretty name, package key pairs for all packages which are descendents of the given package key.

Parameters:

package_key - The parent package's key.

Returns:

a list of pretty name, package key pairs suitable for use in a template select widget.

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

Testcases:

No testcase defined.

Source code:

    set in_clause '[join [::apm_package_descendents $package_key] ',']'
    return [db_list_of_lists get {}]

Generic XQL file:

<fullquery name="apm::get_package_descendent_options.get">
    <querytext>
      select pretty_name, package_key
      from apm_package_types
      where implements_subsite_p = 't'
        and package_key in ($in_clause)
      order by pretty_name
    </querytext>
</fullquery>

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

PostgreSQL XQL file:

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

Oracle XQL file:

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