Index: openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl,v
diff -u -r1.57 -r1.58
--- openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl 25 Jul 2018 01:40:35 -0000 1.57
+++ openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl 25 Jul 2018 22:48:41 -0000 1.58
@@ -374,7 +374,7 @@
oneof
Pluggable filter, installed by default, that makes sure the value X contained in
the set of the provided values. Usage example: color:oneof(red|blue|green)
-
+
range
Pluggable filter, installed by default, that makes sure the value X is in range
[Y, Z]. Usage example: foo:range(1|100)
@@ -1244,7 +1244,7 @@
Define interface between a page and an similar to the
page_contract. This is a light-weight implementation based on the
ad_page_contract. It allows one to check the passed arguments (types,
- optionality) and can be used for setting defaults the usual way.
+ optionality) and can be used for setting defaults the usual way.
Using ad_include_contracts helps to improve documentation of
included content.
@@ -1594,11 +1594,11 @@
if { [llength $proc_args] != 2 } {
return -code error [_ acs-tcl.lt_The_proc_must_accept_]
}
-
+
set script [info script]
set proc_name ad_page_contract_filter_rule_proc_$name
set rule_key ::acs::ad_page_contract_filter_rules($name)
-
+
set mutex [nsv_get ad_page_contract_mutex filter_rules]
ns_mutex lock $mutex
@@ -1616,13 +1616,13 @@
nsv_set ad_page_contract_filter_rules $name $rule_info
set $rule_key $rule_info
ns_mutex unlock $mutex
-
+
# same trick as ad_page_contract_filter does.
-
+
lassign $proc_args arg0 arg1
ad_proc $proc_name [list $arg0 ${arg1}_varname] $doc_string "upvar \$${arg1}_varname $arg1\n$body"
}
-
+
ad_proc ad_page_contract_filter_rule_proc { filter } {
Returns the proc that executes the given ad_page_contract default-filter.
} {