application_data_link::exist_link (public)

 application_data_link::exist_link -object_id object_id \
    -target_object_id target_object_id [ -relation_tag relation_tag ]

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

Check for the existence of a link from an object_id to a target_object_id, with optional relation_tag.

Switches:

-object_id (required)

The object we're looking for a link from

-target_object_id (required)

The object we're looking for a link to

-relation_tag (optional)

Relationship identifier

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

Testcases:

No testcase defined.

Source code:

    set linked_objects [ application_data_link::get -object_id $object_id -relation_tag $relation_tag]
    if {$target_object_id in $linked_objects} {
      # found link
      return 1
    } else {
      return 0
    }

XQL Not present:

PostgreSQL, Oracle

Generic XQL file:

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