ad_page_contract_filter_proc_string_length_range (public)

 ad_page_contract_filter_proc_string_length_range name value_varname \
    range

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

Checks whether the string is within the specified range, inclusive

Parameters:

name
value_varname
range

Author:

Randy Beggs <randyb@arsdigita.com>

Created:

August 2000

Partial Call Graph (max 5 caller/called nodes):

Testcases:

ad_page_contract_filters

Source code:

upvar $value_varname value

    set actual_length [string length $value]
    if { $actual_length < [lindex $range 0] } {
        set binding [list name $name actual_length $actual_length min_length [lindex $range 0]]
        ad_complain [_ acs-tcl.lt_name_is_too_short__Pl $binding]
        return 0
    } elseif { $actual_length > [lindex $range 1] } {
        set binding [list name $name actual_length $actual_length max_length [lindex $range 1]]
        ad_complain [_ acs-tcl.lt_name_is_too_long__Ple $binding]
        return 0
    }
    return 1

XQL Not present:

Generic, PostgreSQL, Oracle