application_link::delete_links (public)

 application_link::delete_links -package_id package_id

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

Delete application links for all packages linking to the given package_id.

Switches:

-package_id (required)

Package ID that you want application links removed from.

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

Testcases:

No testcase defined.

Source code:

    set rel_ids [db_list linked_packages {}]

    foreach rel_id $rel_ids {
        relation_remove $rel_id
    }

Generic XQL file:

<fullquery name="application_link::delete_links.linked_packages">
    <querytext>
	    select rel_id
	    from acs_rels
	    where rel_type = 'application_link'
	    and (object_id_one = :package_id
		 or object_id_two = :package_id)
    </querytext>
</fullquery>

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