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.61.2.42 -r1.61.2.43 --- openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl 5 Apr 2024 08:28:21 -0000 1.61.2.42 +++ openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl 24 Jul 2024 09:06:23 -0000 1.61.2.43 @@ -235,10 +235,10 @@ however, because parenthesys ")" and "(" and pipe "|" are separators in the argspec syntax, they need to be escaped via the character backslash (\) - + Examples of valid argspecs: - +
- my_page_parameter - my_page_parameter:integer @@ -2435,7 +2435,7 @@ } ad_page_contract_filter safetclchars { name value } { - + Checks whether the value contains just characters, which can be used safely in a Tcl eval or subst command. This means, that the characters '$', '[', ']' and '\' disallowed,. @@ -2505,6 +2505,10 @@ ad_complain [_ acs-tcl.lt_name_is_not_valid] return 0 } + set d [ns_parseurl $url] + if {[dict exists $d proto] && [dict get $d proto] ni {http https}} { + return 0 + } return 1 }