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.63.2.9 -r1.63.2.10
--- openacs-4/packages/acs-templating/tcl/widget-procs.tcl	19 Dec 2019 20:01:02 -0000	1.63.2.9
+++ openacs-4/packages/acs-templating/tcl/widget-procs.tcl	2 Mar 2021 14:44:35 -0000	1.63.2.10
@@ -37,6 +37,7 @@
     @see template::widget::menu
     @see template::widget::monthFragment
     @see template::widget::multiselect
+    @see template::widget::number
     @see template::widget::numericRange
     @see template::widget::password
     @see template::widget::party_search
@@ -1366,6 +1367,23 @@
     return $output
 }
 
+ad_proc -public template::widget::number {
+    element_reference
+    tag_attributes
+} {
+    Render a number input widget.
+
+    @param element_reference Reference variable to the form element
+    @param tag_attributes HTML attributes to add to the tag
+
+    @return Form HTML for widget
+} {
+
+    upvar $element_reference element
+
+    return [input number element $tag_attributes]
+}
+
 #
 # Local variables:
 #    mode: tcl