ad_page_contract_filter_proc_object_type (public)

 ad_page_contract_filter_proc_object_type name object_id_varname types

Defined in packages/acs-tcl/tcl/tcl-documentation-procs.tcl

Checks whether the supplied object_id is an acs_object of one of the types specified in the flag parameters. The check will take the object_type hierarchy into account e.g. will always succeed if one of the types is "acs_object". In this case the filter will just behave as an existence check. Example: some_user_id:object_type(user),notnull

Parameters:

name (required)

object_id_varname (required)

types (required)

Testcases:

ad_page_contract_filters

Source code:

upvar $object_id_varname object_id

    if { $types eq "" } {
        set types acs_object
    }

    # First make sure the object_id is formally correct
    if { ![ad_page_contract_filter_proc_object_id $name object_id] } {
        return 0
    }

    if { ![acs_object::is_type_p  -object_id $object_id  -object_types $types] } {
        ad_complain [_ acs-tcl.lt_invalid_object_type]
        return 0
    }

    return 1

XQL Not present:

Generic, PostgreSQL, Oracle