ad_page_contract_filter_proc_rel_type_dynamic_p (public)

 ad_page_contract_filter_proc_rel_type_dynamic_p name value_varname

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

Checks whether the value (assumed to be a string referring to a relationship type) is a dynamic object type.

Parameters:

name (required)

value_varname (required)

Author:

Michael Bryzek <mbryzek@arsdigita.com>

Created:

12/30/2000

Testcases:

No testcase defined.

Source code:

upvar $value_varname value

    if {[db_string rel_type_dynamic_p {
                select case when exists (select 1
                                   from acs_object_types t
                                  where t.dynamic_p = 't'
                                    and t.object_type = :value)
                    then 1 else 0 end
          from dual
    }]} {
        return 1
    }
    ad_complain "Specific rel type either does not exist or is not dynamic and thus cannot be modified"
    return 0

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