Index: openacs-4/packages/acs-templating/tcl/0-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/Attic/0-procs.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/acs-templating/tcl/0-procs.tcl	31 Aug 2002 02:01:41 -0000	1.6
+++ openacs-4/packages/acs-templating/tcl/0-procs.tcl	14 Sep 2002 18:13:47 -0000	1.7
@@ -40,7 +40,7 @@
 
     # default settings 
     variable defaults
-    set defaults [list widget text datatype integer values {} help_text {}]
+    set defaults [list widget text datatype integer values {} help_text {} before_html {} after_html {}]
   }
 
   namespace eval request {}
Index: openacs-4/packages/acs-templating/tcl/element-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/element-procs.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/acs-templating/tcl/element-procs.tcl	1 Sep 2002 19:09:28 -0000	1.6
+++ openacs-4/packages/acs-templating/tcl/element-procs.tcl	14 Sep 2002 18:13:47 -0000	1.7
@@ -462,7 +462,7 @@
   # Remember that the element has been rendered already
   set element(is_rendered) t
 
-  return [template::widget::$element(widget) element $tag_attributes]
+  return "$element(before_html) [template::widget::$element(widget) element $tag_attributes] $element(after_html)"
 }
 
 ad_proc -private template::element::render_help { form_id element_id tag_attributes } {
@@ -499,7 +499,7 @@
   # render the widget once with a placeholder for value
   set element(value) "\$value"
   lappend tag_attributes "\$checked" ""
-  set widget [template::widget::$element(widget) element $tag_attributes]
+  set widget "$element(before_html) [template::widget::$element(widget) element $tag_attributes] $element(after_html)"
 
   set options $element(options)
   if { [info exists element(values)] } {