ad_complaints_with_key (private)

 ad_complaints_with_key errorkey code

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

Sets the default errorkey to be used when ad_complaint is called. This essentially maintains a stack of errorkeys, so we can just say ad_complain without any arguments, when called from within some code that is surrounded by ad_complaints_with_key.

Parameters:
errorkey (required)
code (required)
Author:
Lars Pind
Created:
25 July 2000

Partial Call Graph (max 5 caller/called nodes):
%3 ad_page_contract ad_page_contract (public) ad_complaints_with_key ad_complaints_with_key ad_page_contract->ad_complaints_with_key

Testcases:
No testcase defined.
Source code:
    set ::ad_page_contract_errorkeys [concat $errorkey $::ad_page_contract_errorkeys]
    uplevel 1 $code
    set ::ad_page_contract_errorkeys [lrange $::ad_page_contract_errorkeys 1 end]
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: