application_data_link::get_links_from (public)

 application_data_link::get_links_from -object_id object_id \
    [ -to_type to_type ] [ -relation_tag relation_tag ]

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

Get a list of objects that are linked from an object, possible using the relation_tag. If to_type is a subtype of content_revision, we lookup content_items that have that content_type

Switches:
-object_id
(required)
object_id one, get objects linked from this object
-to_type
(optional)
object_type of the objects to get links to
-relation_tag
(optional)

Partial Call Graph (max 5 caller/called nodes):
%3 test_data_links_update_links data_links_update_links (test acs-tcl) application_data_link::get_links_from application_data_link::get_links_from test_data_links_update_links->application_data_link::get_links_from test_data_links_update_links_with_tag data_links_update_links_with_tag (test acs-tcl) test_data_links_update_links_with_tag->application_data_link::get_links_from content::type::is_content_type content::type::is_content_type (public) application_data_link::get_links_from->content::type::is_content_type db_list db_list (public) application_data_link::get_links_from->db_list db_map db_map (public) application_data_link::get_links_from->db_map application_data_link::update_links_from application_data_link::update_links_from (public) application_data_link::update_links_from->application_data_link::get_links_from

Testcases:
data_links_update_links, data_links_update_links_with_tag
Source code:
    set to_type_where_clause ""
    set content_type_from_clause ""

    if {[info exists to_type] && $to_type ne ""} {
        set to_type_clause [db_map to_type_where_clause]
            if {[content::type::is_content_type -object_type $to_type]} {
            set to_type_clause [db_map content_type_where_clause]
            set content_type_from_clause [db_map content_type_from_clause]
        }
    }
    return [db_list links_from {}]
XQL Not present:
PostgreSQL, Oracle
Generic XQL file:
<fullquery name="application_data_link::get_links_from.links_from">
    <querytext>
        select object_id_two
        from acs_data_links,
        acs_objects
	$content_type_from_clause
        where object_id_one = :object_id
	and object_id = object_id_two
    [application_data_link::relation_tag_where_clause -relation_tag $relation_tag]
	$to_type_where_clause
    </querytext>
</fullquery>

<fullquery name="application_data_link::get_links_from.to_type_clause">
    <querytext>
	and object_type = :to_type
    </querytext>
</fullquery>

<fullquery name="application_data_link::get_links_from.content_type_from_clause">
    <querytext>
	, cr_items
    </querytext>
</fullquery>

<fullquery name="application_data_link::get_links_from.content_type_where_clause">
    <querytext>
	and content_type = :object_type
    </querytext>
</fullquery>
packages/acs-tcl/tcl/application-data-link-procs.xql

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