Index: openacs-4/packages/assessment/tcl/as-export-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-export-procs.tcl,v diff -u -r1.5.2.2 -r1.5.2.3 --- openacs-4/packages/assessment/tcl/as-export-procs.tcl 13 Sep 2022 12:23:29 -0000 1.5.2.2 +++ openacs-4/packages/assessment/tcl/as-export-procs.tcl 13 Sep 2022 16:52:26 -0000 1.5.2.3 @@ -24,21 +24,21 @@ if {$value ne ""} { set label [$root createElement $label] $father appendChild $label - if {$attribute_label ne ""} { - $label setAttribute $attribute_label $attribute_value - } - if {$material_p == "t"} { - set material [$root createElement material] + if {$attribute_label ne ""} { + $label setAttribute $attribute_label $attribute_value + } + if {$material_p == "t"} { + set material [$root createElement material] $label appendChild $material set mattext [$root createElement mattext] - $mattext setAttribute texttype text/html + $mattext setAttribute texttype text/html $material appendChild $mattext set text [$root createCDATASection $value] $mattext appendChild $text - } else { + } else { set text [$root createCDATASection $value] $label appendChild $text - } + } } }