Index: openacs-4/packages/xowf/tcl/test-item-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/tcl/test-item-procs.tcl,v diff -u -r1.2.2.4 -r1.2.2.5 --- openacs-4/packages/xowf/tcl/test-item-procs.tcl 6 Mar 2017 11:53:35 -0000 1.2.2.4 +++ openacs-4/packages/xowf/tcl/test-item-procs.tcl 27 Mar 2017 10:37:42 -0000 1.2.2.5 @@ -53,7 +53,7 @@ return "" } - set widget "richtext,height=150px" + set widget "richtext,editor=ckeditor4,height=150px" if {$auto_correct} { return [subst { {feedback_correct {$widget,label=#xowf.feedback_correct#}} @@ -170,8 +170,8 @@ # create component structure # my create_components [subst { - {text {richtext,required,height=150px,label=#xowf.exercise-text#}} - {mc {mc_choice,feedback_level=$feedback_level,label=#xowf.alternative#,inplace=$inplace,multiple=[my multiple],repeat=1..$nr_choices}} + {text {richtext,required,height=150px,editor=ckeditor4,label=#xowf.exercise-text#}} + {mc {mc_choice,feedback_level=$feedback_level,label=#xowf.alternative#,multiple=[my multiple],repeat=1..$nr_choices}} }] my set __initialized 1 } @@ -189,13 +189,16 @@ #my msg " input_field_names=[my set input_field_names]" set mc [my get_named_sub_component_value mc] - #ns_log notice "MC <$mc>" + ns_log notice "MC <$mc>" if {![my multiple]} { set correct_field_name [my get_named_sub_component_value correct] } - set input_field_names [lmap {name .} $mc {set name}] + #set input_field_names [lmap {name .} $mc {set name}] + set input_field_names {} + foreach {name .} $mc {lappend input_field_names $name} + #mc_exercise.mc.0 {mc_exercise.mc.0.text {} mc_exercise.mc.0.correct t} #mc_exercise.mc.1 {mc_exercise.mc.1.text a mc_exercise.mc.1.correct t} #ns_log notice input_field_names=$input_field_names @@ -222,13 +225,13 @@ set correct $value(correct) append form \ "