Index: openacs-4/packages/acs-templating/tcl/element-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/element-procs.tcl,v
diff -u -r1.9.2.3 -r1.9.2.4
--- openacs-4/packages/acs-templating/tcl/element-procs.tcl	5 Mar 2003 14:57:37 -0000	1.9.2.3
+++ openacs-4/packages/acs-templating/tcl/element-procs.tcl	20 Mar 2003 12:49:15 -0000	1.9.2.4
@@ -367,6 +367,16 @@
        continue
     }
 
+    if { [info exists element(maxlength)] } {
+      set value_bytelength [string bytelength $value]
+      if {  $value_bytelength > $element(maxlength) } {
+        set excess_no_bytes [expr { $value_bytelength - $element(maxlength) }]
+        set message "$label is [ad_decode $excess_no_bytes "1" "one character" "$excess_no_bytes characters"] too long."
+        lappend v_errors $message
+        set formerror($element_id:maxlength) $message
+      }
+    }
+
     if { ! [template::data::validate $element(datatype) value message] } {
 
       # the submission is invalid