Index: openacs.org-dev/packages/acs-templating/tcl/0-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs.org-dev/packages/acs-templating/tcl/0-procs.tcl,v diff -u -r1.1.1.2 -r1.1.1.3 --- openacs.org-dev/packages/acs-templating/tcl/0-procs.tcl 25 Jul 2002 18:46:52 -0000 1.1.1.2 +++ openacs.org-dev/packages/acs-templating/tcl/0-procs.tcl 8 Oct 2002 15:46:50 -0000 1.1.1.3 @@ -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 {} @@ -101,9 +101,9 @@ namespace export form element request } -# Generic wrapper for registered tag handlers. - ad_proc -public template_tag { name arglist body } { + Generic wrapper for registered tag handlers. +} { switch [llength $arglist] {