Index: openacs-4/packages/dotlrn/www/admin/term-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/term-new.tcl,v
diff -u -r1.6.2.3 -r1.6.2.4
--- openacs-4/packages/dotlrn/www/admin/term-new.tcl	20 Mar 2003 11:02:40 -0000	1.6.2.3
+++ openacs-4/packages/dotlrn/www/admin/term-new.tcl	20 Mar 2003 12:52:34 -0000	1.6.2.4
@@ -28,8 +28,8 @@
 
 ad_form -name add_term -export referer -form {
 
-    {term_name:text          {label "Term (e.g. Spring, Fall)"}
-    {html {size 30 maxlength 20}}}
+    {term_name:text          {label "Term (e.g. Spring, Fall)"} {maxlength 20}
+    {html {size 30}}}
 
     {start_date:date
                              {label "Start Date"}
@@ -50,6 +50,8 @@
         -end_date $end_date
     ]
 
+#    error [string bytelength $term_name]
+
     dotlrn_term::new \
         -term_name $term_name \
         -term_year $term_year \