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.56 -r1.284.2.57 --- openacs-4/packages/xowiki/tcl/form-field-procs.tcl 29 Nov 2019 13:42:34 -0000 1.284.2.56 +++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl 29 Nov 2019 14:15:56 -0000 1.284.2.57 @@ -601,10 +601,10 @@ -type:required dict } { - + Convert the provided dict into form_constraint syntax (comma separated). - + @param name optional form-field name @param type required type of the form-field @param dict dict to be converted. @@ -616,7 +616,7 @@ } return $result[join $list ,] } - + FormField instproc value_if_nothing_is_returned_from_form {default} { return $default } @@ -2364,7 +2364,7 @@ set :correction [next] return ${:correction} } - + textarea instproc add_statistics {{-options ""}} { #:log "add_statistics $options" next @@ -3213,7 +3213,7 @@ Class create ShuffleField -superclass FormField -parameter { {options ""} {render_hints ""} - {show_max ""} + {show_max ""} {shuffle_kind:wordchar none} } -ad_doc { @@ -3263,7 +3263,7 @@ set range [expr {${:show_max} - 1}] set subselection [lrange $shuffled 0 $range] - if {!${:multiple}} { + if {${:multiple}} { # # Multiple choice: Accept every subselection as valid for the # time being. @@ -3677,7 +3677,7 @@ shuffled. } - + text_fields instproc initialize {} { # The value of ":multiple" has to be true for shuffling. set :multiple true @@ -3692,20 +3692,20 @@ set fields {} set answers [expr {[info exists :answer] ? ${:answer} : ""}] - + foreach option ${:options} a $answers render_hints_dict ${:render_hints} { # # Properties for a single fields # set field_fc_dict $fc_dict - + if {[dict exists $render_hints_dict words]} { dict set field_fc_dict placeholder #xowiki.[dict get $render_hints_dict words]# } dict set field_fc_dict correct_when $a lassign $option text rep - lappend fields [list $rep [:dict_to_fc -type text $field_fc_dict]] + lappend fields [list $rep [:dict_to_fc -type text $field_fc_dict]] } #:log "TEXT text_fields fields\n[join $fields \n]>"