ad_page_contract_filter_proc_acs_message_id (public)

 ad_page_contract_filter_proc_acs_message_id name value_varname

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

Checks whether the value (assumed to be an integer) is the id of an already-existing OpenACS message.

Parameters:
name
value_varname

Partial Call Graph (max 5 caller/called nodes):
%3 acs_message_p acs_message_p (public) ad_complain ad_complain (public) ad_page_contract_filter_proc_acs_message_id ad_page_contract_filter_proc_acs_message_id ad_page_contract_filter_proc_acs_message_id->acs_message_p ad_page_contract_filter_proc_acs_message_id->ad_complain

Testcases:
No testcase defined.
Source code:
upvar $value_varname value

    # empty is okay (handled by notnull)
    if {$value eq ""} {
        return 1
    }
    if {![acs_message_p $value]} {
        ad_complain "$name ($value) does not refer to a valid OpenACS message"
        return 0
    }
    return 1
Generic XQL file:
packages/acs-messaging/tcl/acs-messaging-procs.xql

PostgreSQL XQL file:
packages/acs-messaging/tcl/acs-messaging-procs-postgresql.xql

Oracle XQL file:
packages/acs-messaging/tcl/acs-messaging-procs-oracle.xql

[ hide source ] | [ make this the default ]
Show another procedure: