Index: openacs.org-dev/packages/acs-templating/tcl/widget-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs.org-dev/packages/acs-templating/tcl/widget-procs.tcl,v diff -u -N -r1.1.1.1 -r1.1.1.2 --- openacs.org-dev/packages/acs-templating/tcl/widget-procs.tcl 9 Jul 2002 17:34:59 -0000 1.1.1.1 +++ openacs.org-dev/packages/acs-templating/tcl/widget-procs.tcl 31 Jul 2002 16:30:57 -0000 1.1.1.2 @@ -70,7 +70,11 @@ upvar $element_reference element - return $element(value) + if { [info exists element(value)] } { + return $element(value) + } else { + return "" + } } ad_proc -public template::widget::input { type element_reference tag_attributes } {