Index: openacs-4/packages/assessment/tcl/as-item-display-tb-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-item-display-tb-procs.tcl,v diff -u -r1.8.2.3 -r1.8.2.4 --- openacs-4/packages/assessment/tcl/as-item-display-tb-procs.tcl 22 Feb 2006 01:02:50 -0000 1.8.2.3 +++ openacs-4/packages/assessment/tcl/as-item-display-tb-procs.tcl 11 Mar 2006 20:18:30 -0000 1.8.2.4 @@ -116,12 +116,11 @@ if {$required_p != "t"} { set optional ",optional" } - set param_list [list [list label $title] [list help_text $subtext] [list value $default_value] [list html $type(html_display_options)]] + set param_list [list [list label \$title] [list help_text \$subtext] [list value \$default_value] [list html \$type(html_display_options)]] if {![empty_string_p $type(abs_size)]} { lappend param_list [list maxlength $type(abs_size)] } set element_params [concat [list "$element\:$datatype\(text)$optional"] $param_list] - ad_form -extend -name $form -form [list $element_params] }