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.7.2.104 -r1.7.2.105 --- openacs-4/packages/xowf/tcl/test-item-procs.tcl 2 Feb 2021 03:10:25 -0000 1.7.2.104 +++ openacs-4/packages/xowf/tcl/test-item-procs.tcl 2 Feb 2021 03:14:36 -0000 1.7.2.105 @@ -56,12 +56,7 @@ : "#attachments.Attachment#"}] for {set i 1} {$i <= $attachments_count} {incr i} { - ns_log notice "get attachments $i (of $attachments_count)" - ns_log notice "get value $i '[:get_named_sub_component_value -from_repeat attachments $i]'" - ns_log notice "get value $i '[:get_named_sub_component_value attachments $i]'" - set label [:get_named_sub_component_value -from_repeat attachments $i] set label [lindex [dict get [:get_named_sub_component_value -from_repeat attachments $i] name] 0] - ns_log notice "get value $i '[:get_named_sub_component_value attachments $i]' -> '$label'" set encoded_label [ns_urlencode $label] append attachments_links \ {
} \ @@ -494,7 +489,6 @@ :create_components [subst { {text {$widget,label=#xowf.exercise-text#,plugins=OacsFs}} - {answer {short_text_field,repeat=1..${:nr},label=}} {lines {number,form_item_wrapper_CSSclass=form-inline,min=1,default=10,label=#xowf.answer_lines#}} {columns {number,form_item_wrapper_CSSclass=form-inline,min=1,max=80,default=60,label=#xowf.answer_columns#}} $autoCorrectSpec @@ -504,7 +498,6 @@ text_interaction instproc convert_to_internal {} { set intro_text [:get_named_sub_component_value text] - append intro_text [:text_attachments] dict set fc_dict rows [:get_named_sub_component_value lines] dict set fc_dict cols [:get_named_sub_component_value columns] @@ -561,18 +554,12 @@ {attachments {[:attachments_widget ${:nr_attachments}]}} {answer {short_text_field,repeat=1..${:nr},label=}} }] - ns_log notice [subst { - {text {$widget,height=100px,label=#xowf.exercise-text#,plugins=OacsFs}} - {attachments {[:attachments_widget ${:nr_attachments}]}} - {answer {short_text_field,repeat=1..${:nr},label=}} - }] set :__initialized 1 } short_text_interaction instproc convert_to_internal {} { set intro_text [:get_named_sub_component_value text] - append intro_text [:text_attachments] set answerFields [:get_named_sub_component_value -from_repeat answer] set options {}