Index: openacs-4/packages/xowiki/tcl/form-field-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/form-field-procs.tcl,v diff -u -r1.284.2.57 -r1.284.2.58 --- openacs-4/packages/xowiki/tcl/form-field-procs.tcl 29 Nov 2019 14:15:56 -0000 1.284.2.57 +++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl 29 Nov 2019 20:38:23 -0000 1.284.2.58 @@ -811,9 +811,19 @@ # Try to get a correct value from the correct_when spec # set predicate [lindex ${:correct_when} 0] + set args [lrange ${:correct_when} 1 end] switch $predicate { - "eq" {set correct [lindex ${:correct_when} 1]} - "contains" {set correct "... [lindex ${:correct_when} 1] ..."} + "match" {set correct $args} + "eq" {set correct $args} + "gt" {set correct "> $args"} + "ge" {set correct ">= $args"} + "lt" {set correct "< $args"} + "le" {set correct "<= $args"} + "contains" {set correct "... [join $args { ... }] ..."} + "answer_words" {set correct "... [join $args { ... }] ..."} + "in" {set correct "... [join args { OR }] ..."} + "btwn" {set correct "[index $args 0] <= X <= [index $args 1]"} + } if {[info exists correct]} { :value $correct