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_complain ad_complain (test acs-tcl) test_ad_complain->ad_complain test_ad_page_contract_filters ad_page_contract_filters (test acs-tcl) test_ad_page_contract_filters->ad_complain _ _ (public) ad_complain->_ ad_page_contract ad_page_contract (public) ad_page_contract->ad_complain ad_page_contract_filter_proc_aa_test_category ad_page_contract_filter_proc_aa_test_category (public) ad_page_contract_filter_proc_aa_test_category->ad_complain ad_page_contract_filter_proc_aa_test_view_by ad_page_contract_filter_proc_aa_test_view_by (public) ad_page_contract_filter_proc_aa_test_view_by->ad_complain ad_page_contract_filter_proc_acs_message_id ad_page_contract_filter_proc_acs_message_id (public, deprecated) ad_page_contract_filter_proc_acs_message_id->ad_complain ad_page_contract_filter_proc_attribute_dynamic_p ad_page_contract_filter_proc_attribute_dynamic_p (public) ad_page_contract_filter_proc_attribute_dynamic_p->ad_complain

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