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

Partial Call Graph (max 5 caller/called nodes):
%3 test_aa_page_contract_filters aa_page_contract_filters (test acs-automated-testing) ad_complain ad_complain test_aa_page_contract_filters->ad_complain test_ad_page_contract_filters ad_page_contract_filters (test acs-tcl) test_ad_page_contract_filters->ad_complain _ _ (public) ad_complain->_

Testcases:
aa_page_contract_filters, ad_page_contract_filters
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
[ hide source ] | [ make this the default ]
Show another procedure: