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.1 -r1.10.2.2
--- openacs-4/packages/assessment/tcl/as-item-display-sb-procs.tcl	31 May 2005 23:13:00 -0000	1.10.2.1
+++ openacs-4/packages/assessment/tcl/as-item-display-sb-procs.tcl	29 Oct 2005 19:52:53 -0000	1.10.2.2
@@ -12,6 +12,7 @@
     {-choice_label_orientation ""}
     {-sort_order_type ""}
     {-item_answer_alignment ""}
+    {-prepend_empty_p "f"}
 } {
     @author Timo Hentschel (timo@timohentschel.de)
     @creation-date 2004-12-08
@@ -31,7 +32,8 @@
 						[list mulitple_p $multiple_p] \
 						[list choice_label_orientation $choice_label_orientation] \
 						[list sort_order_type $sort_order_type] \
-						[list item_answer_alignment $item_answer_alignment] ] ]	
+						[list item_answer_alignment $item_answer_alignment] \
+						[list prepend_empty_p $prepend_empty_p] ] ]	
     }
 
     return $as_item_display_sb_id
@@ -44,6 +46,7 @@
     {-choice_label_orientation ""}
     {-sort_order_type ""}
     {-item_answer_alignment ""}
+    {-prepend_empty_p "f"}
 } {
     @author Timo Hentschel (timo@timohentschel.de)
     @creation-date 2004-12-08
@@ -60,7 +63,8 @@
 						      [list multiple_p $multiple_p] \
 						      [list choice_label_orientation $choice_label_orientation] \
 						      [list sort_order_type $sort_order_type] \
-						      [list item_answer_alignment $item_answer_alignment] ] ]	
+						      [list item_answer_alignment $item_answer_alignment] \
+						      [list prepend_empty_p $prepend_empty_p] ] ]	
     }
 
     return $new_item_display_id
@@ -133,6 +137,10 @@
 	}
     }
     
+    if { $type(prepend_empty_p) == "t" } {
+	set data [linsert $data 0 [list "" ""]]
+    }
+
     set optional ""
     if {$required_p != "t"} {
 	set optional ",optional"