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 -N -r1.4 -r1.5
--- openacs-4/packages/assessment/tcl/as-item-display-tb-procs.tcl	8 Dec 2004 15:30:34 -0000	1.4
+++ openacs-4/packages/assessment/tcl/as-item-display-tb-procs.tcl	10 Dec 2004 20:21:50 -0000	1.5
@@ -80,3 +80,36 @@
 
     return $new_item_display_id
 }
+
+ad_proc -public as::item_display_tb::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 TextBox Type
+} {
+    db_1row display_item_data {}
+    set maxlength_option ""
+    if {![empty_string_p $abs_size]} {
+	set maxlength_option {-maxlength $abs_size}
+    }
+    if {[empty_string_p $required_p]} {
+	set required_p f
+    }
+    if {[empty_string_p $datatype]} {
+	set datatype text
+    }
+
+    set options {-datatype $datatype -widget text -label $title -help_text $subtext -value $default_value -required_p $required_p -html $html_display_options}
+
+    eval template::element::create $form $element $options $maxlength_option
+}