Index: openacs-4/packages/assessment/tcl/as-item-display-cb-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-item-display-cb-procs.tcl,v
diff -u -r1.12.2.1 -r1.12.2.2
--- openacs-4/packages/assessment/tcl/as-item-display-cb-procs.tcl	31 May 2005 23:13:00 -0000	1.12.2.1
+++ openacs-4/packages/assessment/tcl/as-item-display-cb-procs.tcl	11 Mar 2006 20:18:30 -0000	1.12.2.2
@@ -132,7 +132,7 @@
     if {$required_p != "t"} {
 	set optional ",optional"
     }
-    set param_list [list [list label $title] [list help_text $subtext] [list values $default_value] [list options $data] [list html $type(html_display_options)]]
+    set param_list [list [list label \$title] [list help_text \$subtext] [list values \$default_value] [list options \$data] [list html \$type(html_display_options)]]
     set element_params [concat [list "$element\:text(checkbox)$optional"] $param_list]
 
     ad_form -extend -name $form -form [list $element_params]
Index: openacs-4/packages/assessment/tcl/as-item-display-fu-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-item-display-fu-procs.tcl,v
diff -u -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/assessment/tcl/as-item-display-fu-procs.tcl	4 Jul 2005 15:02:23 -0000	1.1.2.1
+++ openacs-4/packages/assessment/tcl/as-item-display-fu-procs.tcl	11 Mar 2006 20:18:30 -0000	1.1.2.2
@@ -100,7 +100,7 @@
     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)]
     }
Index: openacs-4/packages/assessment/tcl/as-item-display-sa-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-item-display-sa-procs.tcl,v
diff -u -r1.8.2.1 -r1.8.2.2
--- openacs-4/packages/assessment/tcl/as-item-display-sa-procs.tcl	31 May 2005 23:13:00 -0000	1.8.2.1
+++ openacs-4/packages/assessment/tcl/as-item-display-sa-procs.tcl	11 Mar 2006 20:18:30 -0000	1.8.2.2
@@ -110,7 +110,7 @@
     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)]
     }
Index: openacs-4/packages/assessment/tcl/as-item-display-sb-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-item-display-sb-procs.tcl,v
diff -u -r1.10.2.2 -r1.10.2.3
--- openacs-4/packages/assessment/tcl/as-item-display-sb-procs.tcl	29 Oct 2005 19:52:53 -0000	1.10.2.2
+++ openacs-4/packages/assessment/tcl/as-item-display-sb-procs.tcl	11 Mar 2006 20:18:30 -0000	1.10.2.3
@@ -145,7 +145,7 @@
     if {$required_p != "t"} {
 	set optional ",optional"
     }
-    set param_list [list [list label $title] [list help_text $subtext] [list values $default_value] [list options $data] [list html $type(html_display_options)]]
+    set param_list [list [list label \$title] [list help_text \$subtext] [list values \$default_value] [list options \$data] [list html \$type(html_display_options)]]
     set element_params [concat [list "$element\:text($widget)$optional"] $param_list]
 
     ad_form -extend -name $form -form [list $element_params]
Index: openacs-4/packages/assessment/tcl/as-item-display-ta-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-item-display-ta-procs.tcl,v
diff -u -r1.8.2.1 -r1.8.2.2
--- openacs-4/packages/assessment/tcl/as-item-display-ta-procs.tcl	31 May 2005 23:13:00 -0000	1.8.2.1
+++ openacs-4/packages/assessment/tcl/as-item-display-ta-procs.tcl	11 Mar 2006 20:18:30 -0000	1.8.2.2
@@ -118,7 +118,7 @@
     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)]
     }
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]
 }