Index: openacs-4/packages/acs-templating/tcl/date-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/date-procs.tcl,v
diff -u -r1.36 -r1.37
--- openacs-4/packages/acs-templating/tcl/date-procs.tcl	4 Jun 2006 00:45:48 -0000	1.36
+++ openacs-4/packages/acs-templating/tcl/date-procs.tcl	29 Jul 2006 23:10:33 -0000	1.37
@@ -1176,6 +1176,9 @@
 ad_proc -public template::util::textdate::create {
     {textdate {}}
 } {
+    Build a textdate datatype structure, which is just the string itself for this
+    simple type.
+} {
     return $textdate
 }
 
@@ -1258,8 +1261,18 @@
     }
 }
 
-ad_proc -public template::data::validate::textdate { value_ref message_ref } {
+ad_proc -public template::data::validate::textdate {
+    value_ref
+    message_ref
+} {
+  Validate that a submitted textdate if properly formatted.
 
+  @param value_ref Reference variable to the submitted value.
+  @param message_ref Reference variable for returning an error message.
+
+  @return True (1) if valid, false (0) if not.
+} {
+
     upvar 2 $message_ref message $value_ref textdate
     set error_msg [list]
     if { [exists_and_not_null textdate] } {