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 -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