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 1XQL Not present: Generic, PostgreSQL, Oracle