install::xml::action::application-link (private)

 install::xml::action::application-link node

Defined in packages/acs-tcl/tcl/application-link-procs.tcl

Create an application link:

<application-link from-package-id="from-package-id" to-package-id="to-package-id"/>

Parameters:

node (required)

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

Testcases:

No testcase defined.

Source code:

    set id [apm_attribute_value -default "" $node id]

    set this_package_url [apm_attribute_value  -default ""  $node  this_package_url]
    set target_package_url [apm_attribute_value  -default ""  $node  target_package_url]

    set from_package_id [apm_attribute_value -default "" $node from-package-id]
    set to_package_id [apm_attribute_value -default "" $node to-package-id]

    if {$this_package_url ne "" } {
        set this_package_id [site_node::get_element -url $this_package_url  -element package_id]
    } elseif {$from_package_id ne "" } {
        set this_package_id [install::xml::util::get_id $from_package_id]
    } else {
        error "application-link tag must specify either this_package_url or from-package-id"
    }

    if {$target_package_url ne "" } {
        set target_package_id [site_node::get_element -url $target_package_url  -element package_id]
    } elseif {$to_package_id ne "" } {
        set target_package_id [install::xml::util::get_id $to_package_id]
    } else {
        error "application-link tag must specify either target_package_url or to-package-id"
    }

    set link_id [application_link::new -this_package_id $this_package_id  -target_package_id $target_package_id]

    if {![string is space $id]} {
        set ::install::xml::ids($id) $link_id
    }

Generic XQL file:

packages/acs-tcl/tcl/application-link-procs.xql

PostgreSQL XQL file:

packages/acs-tcl/tcl/application-link-procs-postgresql.xql

Oracle XQL file:

packages/acs-tcl/tcl/application-link-procs-oracle.xql