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.4 -r1.5
--- openacs-4/packages/assessment/tcl/as-item-display-cb-procs.tcl	8 Dec 2004 15:30:34 -0000	1.4
+++ openacs-4/packages/assessment/tcl/as-item-display-cb-procs.tcl	10 Dec 2004 20:21:50 -0000	1.5
@@ -91,3 +91,42 @@
 
     return $new_item_display_id
 }
+
+ad_proc -public as::item_display_cb::render {
+    -form:required
+    -element:required
+    -type_id:required
+    {-datatype ""}
+    {-title ""}
+    {-subtext ""}
+    {-required_p ""}
+    {-default_value ""}
+    {-data ""}
+} {
+    @author Timo Hentschel (timo@timohentschel.de)
+    @creation-date 2004-12-10
+
+    Render an Item Display CheckBox Type
+} {
+    db_1row display_item_data {}
+    if {[empty_string_p $required_p]} {
+	set required_p f
+    }
+
+    # numerical alphabetical randomized order_of_entry
+    switch -exact $sort_order_type {
+	numerical {
+	    set data [lsort -real -index 1 $data]
+	}
+	alphabetical {
+	    set data [lsort -dictionary -index 1 $data]
+	}
+	randomized {
+	    set data [util::randomize_list $data]
+	}
+    }
+
+    set options {-datatype text -widget checkbox -label $title -help_text $subtext -values $default_value -required_p $required_p -html $html_display_options -options $data}
+
+    eval template::element::create $form $element $options
+}