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.17 -r1.18
--- openacs-4/packages/acs-templating/tcl/widget-procs.tcl 27 Jan 2003 13:55:09 -0000 1.17
+++ openacs-4/packages/acs-templating/tcl/widget-procs.tcl 13 Mar 2003 20:25:06 -0000 1.18
@@ -9,7 +9,37 @@
# This is free software distributed under the terms of the GNU Public
# License. Full text of the license is available from the GNU Project:
# http://www.fsf.org/copyleft/gpl.html
+ad_proc -public template::widget {} {
+ The template::widget namespace contains the code
+ for the various input widgets.
+ @see template::widget::ampmFragment
+ @see template::widget::button
+ @see template::widget::checkbox
+ @see template::widget::comment
+ @see template::widget::currency
+ @see template::widget::date
+ @see template::widget::dateFragment
+ @see template::widget::file
+ @see template::widget::hidden
+ @see template::widget::inform
+ @see template::widget::input
+ @see template::widget::menu
+ @see template::widget::monthFragment
+ @see template::widget::multiselect
+ @see template::widget::numericRange
+ @see template::widget::password
+ @see template::widget::radio
+ @see template::widget::search
+ @see template::widget::select
+ @see template::widget::submit
+ @see template::widget::text
+ @see template::widget::textarea
+
+ @see template::element::create
+} -
+
+
ad_proc -public template::widget::search { element_reference tag_attributes } {
upvar $element_reference element
@@ -129,7 +159,7 @@
switch $type {
checkbox - radio {
# There's a 'subst' done on the contents here
- append output ""
+ append output ""
# This is ugly, but it works: Only export the value when we're on a selected option
append output "\[ad_decode \$checked \"checked\" \"\" \"\"\]"
}