ad_page_contract_filter_proc_range (public)

 ad_page_contract_filter_proc_range name value_varname range

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

Checks whether the value falls between the specified range. Range must be a list of two elements: min and max. Example spec: w:range(3|7)

Parameters:
name
value_varname
range
Author:
Yonatan Feldman <yon@arsdigita.com>
Created:
August 18, 2000

Partial Call Graph (max 5 caller/called nodes):
%3 test_ad_page_contract_filters ad_page_contract_filters (test acs-tcl) ad_page_contract_filter_proc_range ad_page_contract_filter_proc_range test_ad_page_contract_filters->ad_page_contract_filter_proc_range _ _ (public) ad_page_contract_filter_proc_range->_ ad_complain ad_complain (public) ad_page_contract_filter_proc_range->ad_complain ad_script_abort ad_script_abort (public) ad_page_contract_filter_proc_range->ad_script_abort util::trim_leading_zeros util::trim_leading_zeros (public) ad_page_contract_filter_proc_range->util::trim_leading_zeros

Testcases:
ad_page_contract_filters
Source code:
upvar $value_varname value

    if { [llength $range] != 2 } {
        error [_ acs-tcl.lt_Invalid_number_of_par]
        ad_script_abort
    }

    lassign $range min max
    set value [util::trim_leading_zeros $value]

    if { ![string is integer -strict $value] || $value < $min || $value > $max } {
        ad_complain [_ acs-tcl.lt_name_is_not_in_the_ra]
        return 0
    }
    return 1
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: