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):

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