Index: openacs-4/packages/acs-templating/tcl/widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/widget-procs.tcl,v
diff -u -N -r1.14.2.9 -r1.14.2.10
--- openacs-4/packages/acs-templating/tcl/widget-procs.tcl	5 Jun 2003 13:27:09 -0000	1.14.2.9
+++ openacs-4/packages/acs-templating/tcl/widget-procs.tcl	2 Jul 2003 19:09:30 -0000	1.14.2.10
@@ -241,6 +241,21 @@
   return [input submit element $tag_attributes]
 }
 
+ad_proc -public template::widget::attachment { element_reference tag_attributes } {
+
+    upvar $element_reference element
+
+    set output [input file element $tag_attributes]
+
+    set element(name) $element(attach_name)
+    set element(label) $element(attach_label)
+    set element(html) $element(attach_html)
+
+    append output [submit element $tag_attributes]
+
+    return $output
+}
+
 ad_proc -public template::widget::checkbox { element_reference tag_attributes } {
 
   upvar $element_reference element