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 -N -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 \
             {<div class='attachment'>} \
@@ -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 {}