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):
%3 application_data_link::new application_data_link::new (public) application_data_link::exist_link application_data_link::exist_link application_data_link::new->application_data_link::exist_link application_data_link::get application_data_link::get (public) application_data_link::exist_link->application_data_link::get

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

[ hide source ] | [ make this the default ]
Show another procedure: