rel_types::additional_rel_types_p (public)

 rel_types::additional_rel_types_p [ -group_id group_id ] \
    [ -group_type group_type ]

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

Returns 1 if there is a relationship type not being used by the specified group_id or group_type. Useful for deciding when to offer the user a link to create or add a new permissible relationship type

Switches:
-group_id
(optional)
-group_type
(optional)
Author:
Michael Bryzek <mbryzek@arsdigita.com>
Created:
12/2000

Partial Call Graph (max 5 caller/called nodes):
%3 packages/acs-subsite/www/admin/group-types/one.tcl packages/acs-subsite/ www/admin/group-types/one.tcl rel_types::additional_rel_types_p rel_types::additional_rel_types_p packages/acs-subsite/www/admin/group-types/one.tcl->rel_types::additional_rel_types_p rel_types::additional_rel_types_group_p rel_types::additional_rel_types_group_p (private) rel_types::additional_rel_types_p->rel_types::additional_rel_types_group_p rel_types::additional_rel_types_group_type_p rel_types::additional_rel_types_group_type_p (private) rel_types::additional_rel_types_p->rel_types::additional_rel_types_group_type_p

Testcases:
No testcase defined.
Source code:
        if {$group_id ne ""} {
            return [additional_rel_types_group_p $group_id]
        } elseif {$group_type ne ""} {
            return [additional_rel_types_group_type_p $group_type]
        } else {
            error "rel_types::rel_types_p error: One of group_id or group_type must be specified"
        }
Generic XQL file:
packages/acs-subsite/tcl/rel-types-procs.xql

PostgreSQL XQL file:
packages/acs-subsite/tcl/rel-types-procs-postgresql.xql

Oracle XQL file:
packages/acs-subsite/tcl/rel-types-procs-oracle.xql

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