rel_types::additional_rel_types_group_p (private)

 rel_types::additional_rel_types_group_p group_id

Defined in packages/acs-subsite/tcl/rel-types-procs.tcl

returns 1 if there is a rel type that is not defined as a segment for this group

Parameters:

group_id

Author:

Michael Bryzek <mbryzek@arsdigita.com>

Created:

12/30/2000

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

Testcases:

No testcase defined.

Source code:

        return [db_string group_rel_type_exists {}]

Generic XQL file:

packages/acs-subsite/tcl/rel-types-procs.xql

PostgreSQL XQL file:

<fullquery name="rel_types::additional_rel_types_group_p.group_rel_type_exists">
    <querytext>
    select case when exists (select 1
                             from acs_object_types t1, acs_object_types t2, group_type_rels g
                             where g.group_id = :group_id
                             and t2.object_type <> g.rel_type
                             and t1.object_type in ('membership_rel','composition_rel')
			     and t2.tree_sortkey between t1.tree_sortkey and tree_right(t1.tree_sortkey)
			     )
     then 1 else 0 end
</querytext>
</fullquery>

packages/acs-subsite/tcl/rel-types-procs-postgresql.xql

Oracle XQL file:

<fullquery name="rel_types::additional_rel_types_group_p.group_rel_type_exists">
    <querytext>
     select case when exists (select 1
                              from acs_object_types t
                              where t.object_type not in (select g.rel_type
                                                          from group_rels g
                                                          where g.group_id = :group_id)
                              connect by prior t.object_type = t.supertype
                              start with t.object_type in ('membership_rel','composition_rel'))
            then 1 else 0 end
            from dual
</querytext>
</fullquery>

packages/acs-subsite/tcl/rel-types-procs-oracle.xql