Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v diff -u -N -r1.23 -r1.24 --- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl 9 Jan 2003 09:27:33 -0000 1.23 +++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl 10 Jan 2003 13:13:07 -0000 1.24 @@ -729,6 +729,11 @@ Similarly, if you want to change the sort order, you can say [export_vars -override { { sort_by $column } } $my_vars], and sorting will be done according to the new value of column. + +

+ + If the variable name contains a colon (:), that colon must be escaped with a backslash, + so for example "form:id" becomes "form\:id". Sorry. @param sign Sign all variables. @@ -792,7 +797,15 @@ if { [llength $var_spec] > 2 } { return -code error "A varspec must have either one or two elements." } + + # Hide escaped colons for below split + regsub -all {\\:} $var_spec "!!cOlOn!!" var_spec + set name_spec [split [lindex $var_spec 0] ":"] + + # Replace escaped colons with single colon + regsub -all {!!cOlOn!!} $name_spec ":" name_spec + set name [lindex $name_spec 0] # If we've already encountered this varname, ignore it