ad_complain (public)

 ad_complain [ -key key ] [ message ]

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

Used to report a problem while validating user input. This proc does not in itself make your code terminate, you must call return if you do not want control to return to the caller.

Switches:

-key (optional)

Parameters:

message (optional)

Author:

Lars Pind <lars@pinds.com>

Created:

24 July 2000

Testcases:

aa_page_contract_filters, ad_page_contract_filters, ad_complain

Source code:

    # if no key was specified, grab one from the internally kept stack
    if { $key eq "" && [info exists ::ad_page_contract_errorkeys] } {
        set key [lindex $::ad_page_contract_errorkeys 0]
    }
    if { [info exists ::ad_page_contract_error_string($key)] } {
        lappend ::ad_page_contract_complaints $::ad_page_contract_error_string($key)
    } elseif { $message eq "" } {
        lappend ::ad_page_contract_complaints [_ acs-tcl.lt_Validation_key_compla]
    } else {
        lappend ::ad_page_contract_complaints $message
    }

XQL Not present:

Generic, PostgreSQL, Oracle