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.103 -r1.7.2.104
--- openacs-4/packages/xowf/tcl/test-item-procs.tcl 1 Feb 2021 10:45:30 -0000 1.7.2.103
+++ openacs-4/packages/xowf/tcl/test-item-procs.tcl 2 Feb 2021 03:10:25 -0000 1.7.2.104
@@ -56,7 +56,12 @@
: "#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 \
{
} \
@@ -489,6 +494,7 @@
: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
@@ -498,6 +504,7 @@
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]
@@ -554,12 +561,18 @@
{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 {}