Index: openacs-4/packages/acs-templating/acs-templating.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/acs-templating.info,v
diff -u -r1.66.2.7 -r1.66.2.8
--- openacs-4/packages/acs-templating/acs-templating.info	2 Mar 2021 14:46:36 -0000	1.66.2.7
+++ openacs-4/packages/acs-templating/acs-templating.info	11 Mar 2021 14:23:27 -0000	1.66.2.8
@@ -9,7 +9,7 @@
     <implements-subsite-p>f</implements-subsite-p>
     <inherit-templates-p>t</inherit-templates-p>
 
-    <version name="5.10.0d14" url="http://openacs.org/repository/download/apm/acs-templating-5.10.0d14.apm">
+    <version name="5.10.0d15" url="http://openacs.org/repository/download/apm/acs-templating-5.10.0d15.apm">
         <owner url="http://openacs.org">OpenACS</owner>
         <summary>Templating library.</summary>
         <release-date>2019-01-23</release-date>
@@ -27,7 +27,7 @@
         <license>GPL version 2</license>
         <maturity>3</maturity>
 
-        <provides url="acs-templating" version="5.10.0d14"/>
+        <provides url="acs-templating" version="5.10.0d15"/>
         <requires url="acs-kernel" version="5.9.1"/>
         <requires url="acs-tcl" version="5.10.0d40"/>
 
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.12 -r1.63.2.13
--- openacs-4/packages/acs-templating/tcl/widget-procs.tcl	11 Mar 2021 13:22:10 -0000	1.63.2.12
+++ openacs-4/packages/acs-templating/tcl/widget-procs.tcl	11 Mar 2021 14:23:27 -0000	1.63.2.13
@@ -24,12 +24,16 @@
     for the various input widgets.
 
     @see template::widget::ampmFragment
+    @see template::widget::block
     @see template::widget::button
     @see template::widget::checkbox
+    @see template::widget::checkbox_text
+    @see template::widget::color
     @see template::widget::comment
     @see template::widget::currency
     @see template::widget::date
     @see template::widget::dateFragment
+    @see template::widget::email
     @see template::widget::file
     @see template::widget::hidden
     @see template::widget::inform
@@ -42,18 +46,17 @@
     @see template::widget::password
     @see template::widget::party_search
     @see template::widget::radio
-    @see template::util::richtext
+    @see template::wdiget::radio_text
     @see template::widget::search
     @see template::widget::select
+    @see template::widget::select_text
     @see template::widget::submit
+    @see template::widget::tel
     @see template::widget::text
     @see template::widget::textarea
     @see template::widget::url
-    @see template::widget::block
     @see template::element::create
-    @see template::widget::select_text
-    @see template::wdiget::radio_text
-    @see template::widget::checkbox_text
+    @see template::util::richtext
 } -
 
 
@@ -1402,6 +1405,74 @@
     return [input url element $tag_attributes]
 }
 
+ad_proc -public template::widget::tel {
+    element_reference
+    tag_attributes
+} {
+    Render a tel 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 tel element $tag_attributes]
+}
+
+ad_proc -public template::widget::tel {
+    element_reference
+    tag_attributes
+} {
+    Render a tel 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 tel element $tag_attributes]
+}
+
+ad_proc -public template::widget::email {
+    element_reference
+    tag_attributes
+} {
+    Render a email 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 email element $tag_attributes]
+}
+
+ad_proc -public template::widget::color {
+    element_reference
+    tag_attributes
+} {
+    Render a color 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 color element $tag_attributes]
+}
+
 #
 # Local variables:
 #    mode: tcl